ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_fftnr::getFFTI Interface Reference

Generate and return the Inverse (normalized by 2 / size(data)) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind parameter. More...

Detailed Description

Generate and return the Inverse (normalized by 2 / size(data)) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind parameter.

See the documentation of pm_fftnr for more details.

Parameters
[in]data: The input contiguous vector of arbitrary size of,
  1. type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
  2. type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),
containing the periodic sequence whose FFT is to be computed.
Returns
fft : The output vector of size getExpNext(size(data), 2) of the same type and kind as the input data, containing the FFT result.


Possible calling interfaces

use pm_fftnr, only: getFFTI
type_of(data) :: fft(1 : getExpNext(size(data)))
fft(:) = getFFTI(data(:))
Generate and return the Inverse (normalized by 2 / size(data)) Fourier Transform of a periodic sequen...
Definition: pm_fftnr.F90:428
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftnr.F90:184
Remarks
The procedures under discussion are impure.
Note
This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTR.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.
See also
getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI


Example usage

1program example
2
3 use pm_kind, only: SK, IK, LK
4 use pm_io, only: display_type
5 use pm_fftnr, only: getFFTF, getFFTI
6 use pm_distUnif, only: getUnifRand
7 use pm_mathCompare, only: isClose
8 use pm_err, only: setAsserted
9
10 implicit none
11
12 integer(IK) :: i
13 integer(IK) :: lenData
14 type(display_type) :: disp
15 disp = display_type(file = "main.out.F90")
16
17 do i = 1, 5
18 block
19 use pm_kind, only: TKC => CK32
20 real(TKC) :: reltol
21 complex(TKC), allocatable :: data(:), atad(:)
22 call disp%show("lenData = getUnifRand(5, 100)")
23 lenData = getUnifRand(5, 100)
24 call disp%show("lenData")
25 call disp%show( lenData )
26 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
27 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
28 call disp%show("data")
29 call disp%show( data )
30 call disp%skip()
31 call disp%show("atad = getFFTI(getFFTF(data))")
32 atad = getFFTI(getFFTF(data))
33 call disp%show("atad")
34 call disp%show( atad )
35 call disp%show("reltol = sqrt(epsilon(1._TKC))")
36 reltol = sqrt(epsilon(1._TKC))
37 call disp%show("reltol")
38 call disp%show( reltol )
39 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
40 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
41 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
42 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
43 call disp%skip()
44 end block
45
46 block
47 use pm_kind, only: TKC => CK64
48 real(TKC) :: reltol
49 complex(TKC), allocatable :: data(:), atad(:)
50 call disp%show("lenData = getUnifRand(5, 100)")
51 lenData = getUnifRand(5, 100)
52 call disp%show("lenData")
53 call disp%show( lenData )
54 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
55 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
56 call disp%show("data")
57 call disp%show( data )
58 call disp%skip()
59 call disp%show("atad = getFFTI(getFFTF(data))")
60 atad = getFFTI(getFFTF(data))
61 call disp%show("atad")
62 call disp%show( atad )
63 call disp%show("reltol = sqrt(epsilon(1._TKC))")
64 reltol = sqrt(epsilon(1._TKC))
65 call disp%show("reltol")
66 call disp%show( reltol )
67 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
68 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
69 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
70 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
71 call disp%skip()
72 end block
73
74 block
75 use pm_kind, only: TKC => CKH
76 real(TKC) :: reltol
77 complex(TKC), allocatable :: data(:), atad(:)
78 call disp%show("lenData = getUnifRand(5, 100)")
79 lenData = getUnifRand(5, 100)
80 call disp%show("lenData")
81 call disp%show( lenData )
82 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
83 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
84 call disp%show("data")
85 call disp%show( data )
86 call disp%skip()
87 call disp%show("atad = getFFTI(getFFTF(data))")
88 atad = getFFTI(getFFTF(data))
89 call disp%show("atad")
90 call disp%show( atad )
91 call disp%show("reltol = sqrt(epsilon(1._TKC))")
92 reltol = sqrt(epsilon(1._TKC))
93 call disp%show("reltol")
94 call disp%show( reltol )
95 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
96 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
97 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
98 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
99 call disp%skip()
100 end block
101
102 block
103 use pm_kind, only: TKC => RK32
104 real(TKC) :: reltol
105 real(TKC), allocatable :: data(:), atad(:)
106 call disp%show("lenData = getUnifRand(5, 100)")
107 lenData = getUnifRand(5, 100)
108 call disp%show("lenData")
109 call disp%show( lenData )
110 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
111 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
112 call disp%show("data")
113 call disp%show( data )
114 call disp%skip()
115 call disp%show("atad = getFFTI(getFFTF(data))")
116 atad = getFFTI(getFFTF(data))
117 call disp%show("atad")
118 call disp%show( atad )
119 call disp%show("reltol = sqrt(epsilon(1._TKC))")
120 reltol = sqrt(epsilon(1._TKC))
121 call disp%show("reltol")
122 call disp%show( reltol )
123 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
124 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
125 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
126 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
127 call disp%skip()
128 end block
129
130 block
131 use pm_kind, only: TKC => RK64
132 real(TKC) :: reltol
133 real(TKC), allocatable :: data(:), atad(:)
134 call disp%show("lenData = getUnifRand(5, 100)")
135 lenData = getUnifRand(5, 100)
136 call disp%show("lenData")
137 call disp%show( lenData )
138 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
139 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
140 call disp%show("data")
141 call disp%show( data )
142 call disp%skip()
143 call disp%show("atad = getFFTI(getFFTF(data))")
144 atad = getFFTI(getFFTF(data))
145 call disp%show("atad")
146 call disp%show( atad )
147 call disp%show("reltol = sqrt(epsilon(1._TKC))")
148 reltol = sqrt(epsilon(1._TKC))
149 call disp%show("reltol")
150 call disp%show( reltol )
151 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
152 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
153 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
154 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
155 call disp%skip()
156 end block
157
158 block
159 use pm_kind, only: TKC => RKH
160 real(TKC) :: reltol
161 real(TKC), allocatable :: data(:), atad(:)
162 call disp%show("lenData = getUnifRand(5, 100)")
163 lenData = getUnifRand(5, 100)
164 call disp%show("lenData")
165 call disp%show( lenData )
166 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
167 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
168 call disp%show("data")
169 call disp%show( data )
170 call disp%skip()
171 call disp%show("atad = getFFTI(getFFTF(data))")
172 atad = getFFTI(getFFTF(data))
173 call disp%show("atad")
174 call disp%show( atad )
175 call disp%show("reltol = sqrt(epsilon(1._TKC))")
176 reltol = sqrt(epsilon(1._TKC))
177 call disp%show("reltol")
178 call disp%show( reltol )
179 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
180 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
181 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
182 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
183 call disp%skip()
184 end block
185 end do
186
187end program example
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1617
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftnr.F90:250
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11074
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
This module contains classes and procedures for computing various statistical quantities related to t...
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:10962
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:28
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:281
integer, parameter CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
Definition: pm_kind.F90:477
integer, parameter RK32
The real kind for a 32-bits container.
Definition: pm_kind.F90:294
integer, parameter CK64
The complex kind for a 64-bits container.
Definition: pm_kind.F90:290
integer, parameter CK32
The complex kind for a 32-bits container.
Definition: pm_kind.F90:291
integer, parameter RK64
The real kind for a 64-bits container.
Definition: pm_kind.F90:293
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:280
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:279
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind a...
Definition: pm_kind.F90:462
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Generate and return an object of type display_type.
Definition: pm_io.F90:10228

Example Unix compile command via Intel ifort compiler
1#!/usr/bin/env sh
2rm main.exe
3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_intel* -o main.exe
4./main.exe

Example Windows Batch compile command via Intel ifort compiler
1del main.exe
2set PATH=..\..\..\lib;%PATH%
3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte_fortran_*_intel*.lib /exe:main.exe
4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler
1#!/usr/bin/env sh
2rm main.exe
3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_gnu* -o main.exe
4./main.exe

Example output
1lenData = getUnifRand(5, 100)
2lenData
3+79
4data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
5data
6(+1.64246678, +0.391439855), (+1.17235327, +0.964679301), (+1.06976259, +0.436126232), (+1.59037232, +0.749077559), (+1.63507485, +0.501479030), (+1.65099251, +0.196492195), (+1.11423767, +0.855879664), (+1.63962126, +0.565390348), (+1.05063879, +0.586849093), (+1.25192785, +0.977076769), (+1.76931190, +0.865145922E-1), (+1.90403867, +0.705242753), (+1.00024891, +0.916760802), (+1.10515237, +0.306010842E-1), (+1.11289489, +0.560126007), (+1.31614351, +0.580509126), (+1.19225883, +0.369577765), (+1.99952888, +0.885287106), (+1.99239993, +0.999824643), (+1.77221417, +0.724819243), (+1.82494199, +0.178434849), (+1.09343731, +0.571243703), (+1.83142519, +0.542276740), (+1.44404840, +0.417343974E-1), (+1.06153560, +0.180907071), (+1.32248557, +0.906929255), (+1.77801371, +0.843226373), (+1.56044900, +0.935650170), (+1.35825062, +0.620001256), (+1.91546917, +0.782448709), (+1.69003642, +0.577138424), (+1.03811526, +0.883593917), (+1.99636090, +0.460110784), (+1.63548374, +0.799699605), (+1.82941306, +0.707818568), (+1.99755597, +0.237335086), (+1.77431655, +0.261665046), (+1.29685140, +0.110987425E-1), (+1.72974992, +0.468590498), (+1.01859283, +0.294651270), (+1.58570170, +0.966126621), (+1.63095510, +0.629081905), (+1.93379831, +0.233924985E-1), (+1.25802553, +0.787526727), (+1.55128121, +0.389564812), (+1.21999502, +0.358064890), (+1.53736603, +0.232212007), (+1.58431077, +0.271821022E-1), (+1.38844085, +0.184290349), (+1.66594791, +0.790727735), (+1.22872305, +0.996978402), (+1.13101482, +0.898015618), (+1.28661788, +0.949753284), (+1.68373430, +0.345993757), (+1.67472625, +0.153279960), (+1.86732292, +0.639074385), (+1.08653104, +0.823039293), (+1.17471886, +0.833424807), (+1.08381152, +0.385213494E-1), (+1.72913516, +0.619403660), (+1.66981936, +0.941426337), (+1.43775642, +0.528672397), (+1.97457051, +0.135704696), (+1.33330500, +0.235709846), (+1.45377862, +0.714640260), (+1.30160689, +0.196471334), (+1.86641955, +0.307874739), (+1.90538287, +0.209137142), (+1.55283070, +0.586187482), (+1.19544721, +0.129664958), (+1.53932142, +0.246809542), (+1.66362786, +0.224920571), (+1.47168517, +0.101532221), (+1.87834847, +0.298824072), (+1.84680867, +0.700615108), (+1.59194517, +0.585986614), (+1.88937867, +0.252444267), (+1.53196585, +0.636794150), (+1.92439747, +0.179803908)
7
8atad = getFFTI(getFFTF(data))
9atad
10(+1.64246678, +0.391439825), (+1.17235327, +0.964679480), (+1.06976247, +0.436126232), (+1.59037185, +0.749077559), (+1.63507497, +0.501478851), (+1.65099263, +0.196492136), (+1.11423767, +0.855879664), (+1.63962114, +0.565390229), (+1.05063891, +0.586849093), (+1.25192785, +0.977076888), (+1.76931202, +0.865148008E-1), (+1.90403867, +0.705242872), (+1.00024891, +0.916760802), (+1.10515273, +0.306010246E-1), (+1.11289489, +0.560126066), (+1.31614351, +0.580509305), (+1.19225883, +0.369577765), (+1.99952865, +0.885287106), (+1.99239993, +0.999824524), (+1.77221394, +0.724819124), (+1.82494187, +0.178434834), (+1.09343719, +0.571243525), (+1.83142519, +0.542276382), (+1.44404852, +0.417344868E-1), (+1.06153584, +0.180907100), (+1.32248545, +0.906929374), (+1.77801371, +0.843226314), (+1.56044888, +0.935650229), (+1.35825086, +0.620001316), (+1.91546905, +0.782448769), (+1.69003665, +0.577138424), (+1.03811526, +0.883593917), (+1.99636090, +0.460110605), (+1.63548374, +0.799699426), (+1.82941341, +0.707818329), (+1.99755573, +0.237334847), (+1.77431655, +0.261664867), (+1.29685140, +0.110986531E-1), (+1.72975016, +0.468590140), (+1.01859307, +0.294651121), (+1.58570147, +0.966126502), (+1.63095510, +0.629081905), (+1.93379831, +0.233924687E-1), (+1.25802565, +0.787526608), (+1.55128133, +0.389564574), (+1.21999490, +0.358064741), (+1.53736615, +0.232211828), (+1.58431065, +0.271820426E-1), (+1.38844085, +0.184290320), (+1.66594768, +0.790727437), (+1.22872329, +0.996978343), (+1.13101470, +0.898015380), (+1.28661799, +0.949752986), (+1.68373418, +0.345993549), (+1.67472613, +0.153279841), (+1.86732268, +0.639074206), (+1.08653080, +0.823039174), (+1.17471850, +0.833424628), (+1.08381152, +0.385213941E-1), (+1.72913504, +0.619403481), (+1.66981936, +0.941426277), (+1.43775630, +0.528672338), (+1.97457039, +0.135704607), (+1.33330488, +0.235709906), (+1.45377851, +0.714640260), (+1.30160689, +0.196471214), (+1.86641955, +0.307874620), (+1.90538263, +0.209137082), (+1.55283082, +0.586187541), (+1.19544721, +0.129664898), (+1.53932154, +0.246809483), (+1.66362798, +0.224920511), (+1.47168517, +0.101532191), (+1.87834811, +0.298824191), (+1.84680855, +0.700615048), (+1.59194493, +0.585986614), (+1.88937855, +0.252444416), (+1.53196561, +0.636794209), (+1.92439759, +0.179803848), (-0.596046448E-7, +0.298023224E-7), (+0.596046448E-7, -0.149011612E-7), (+0.119209290E-6, -0.119209290E-6), (+0.536441803E-6, -0.298023224E-7), (+0.596046448E-7, +0.119209290E-6), (+0.476837158E-6, +0.163912773E-6), (+0.00000000, +0.298023224E-7), (+0.238418579E-6, +0.238418579E-6), (+0.119209290E-6, -0.298023224E-7), (+0.596046448E-7, -0.186264515E-6), (-0.298023224E-6, -0.119209290E-6), (+0.119209290E-6, -0.894069672E-7), (+0.596046448E-7, +0.00000000), (+0.596046448E-7, -0.298023224E-7), (-0.119209290E-6, +0.298023224E-7), (-0.119209290E-6, +0.00000000), (+0.596046448E-7, +0.119209290E-6), (-0.119209290E-6, +0.178813934E-6), (-0.596046448E-7, +0.149011612E-6), (+0.178813934E-6, +0.238418579E-6), (-0.238418579E-6, +0.268220901E-6), (+0.178813934E-6, +0.372529030E-6), (-0.119209290E-6, +0.268220901E-6), (+0.00000000, +0.521540642E-6), (+0.596046448E-7, +0.238418579E-6), (-0.596046448E-7, +0.596046448E-7), (-0.119209290E-6, +0.00000000), (+0.238418579E-6, +0.149011612E-6), (-0.596046448E-7, +0.178813934E-6), (+0.119209290E-6, +0.134110451E-6), (-0.119209290E-6, -0.119209290E-6), (-0.238418579E-6, +0.238418579E-6), (+0.119209290E-6, +0.238418579E-6), (+0.178813934E-6, +0.968575478E-7), (+0.596046448E-7, +0.238418579E-6), (+0.298023224E-6, +0.238418579E-6), (-0.119209290E-6, +0.268220901E-6), (+0.298023224E-6, +0.178813934E-6), (+0.00000000, +0.149011612E-6), (+0.119209290E-6, +0.409781933E-6), (+0.178813934E-6, +0.268220901E-6), (+0.357627869E-6, +0.298023224E-7), (+0.238418579E-6, -0.596046448E-7), (+0.298023224E-6, +0.149011612E-7), (+0.178813934E-6, +0.149011612E-6), (+0.178813934E-6, +0.298023224E-7), (+0.238418579E-6, -0.596046448E-7), (+0.119209290E-6, +0.126659870E-6), (+0.596046448E-7, +0.238418579E-6)
11reltol = sqrt(epsilon(1._TKC))
12reltol
13+0.345266977E-3
14isClose(data, atad(1:size(data)), reltol = reltol)
15T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
16call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
17
18lenData = getUnifRand(5, 100)
19lenData
20+95
21data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
22data
23(+1.3146774009891353, +0.71946998663327444), (+1.2506999735784996, +0.80465706288501593), (+1.7048422737962747, +0.99047226458055404), (+1.6878593843755012, +0.51236644562613098), (+1.7960651396904721, +0.52055869361766205), (+1.1633512604706167, +0.86831910650836941), (+1.2497773383337178, +0.74273073491997166), (+1.0309501644244055, +0.20398019647536692), (+1.0667684500582055, +0.23300307382680663), (+1.8012028794358976, +0.78800693396315014E-1), (+1.5003291694148371, +0.96330629742582152), (+1.2314228803450136, +0.85144517920488194), (+1.7387562813517401, +0.68264515825399785), (+1.2975786730967158, +0.68204883359345003), (+1.0247353092327032, +0.99529907289054365), (+1.5389792235916311, +0.45852772782318962), (+1.9088826203702105, +0.60200006549239038), (+1.8116078743220452, +0.56032470387500077), (+1.4472194221566339, +0.16052015066240988E-1), (+1.9556232616091080, +0.59967766699715963), (+1.4416089496422102, +0.89069682837643405), (+1.8139245031493636, +0.36432839873539835), (+1.1345048950839054, +0.61919488144070889E-1), (+1.4049136283930570, +0.81957595011661355), (+1.9363904897562927, +0.18568247872363264), (+1.8746198430025007, +0.80518207015378973), (+1.3092731020337398, +0.66790603977308438), (+1.4177919561407140, +0.92245644700473151), (+1.8041047294460864, +0.33362675998051472), (+1.4319475786131672, +0.86575848130154853), (+1.9654745251898449, +0.89936758387411231), (+1.3009461518714533, +0.72420753768666624), (+1.5668529421436173, +0.86594592255226810), (+1.3963751915787141, +0.58369610158406005), (+1.7807839802281611, +0.15883385123545468), (+1.7014204889310816, +0.62458177179187979), (+1.8082057294210507, +0.80964525417028177), (+1.5109421514705774, +0.75423351187090348), (+1.1440557472988000, +0.79721209005039828), (+1.4202359127217514, +0.68278113673456098), (+1.2613718819218547, +0.84969288778591801), (+1.8845564226931484, +0.33294572529931921), (+1.8814186944443891, +0.84645127779919216), (+1.8770829280827659, +0.79087553660984833), (+1.0349958685507095, +0.80443240700647911), (+1.6125205797167681, +0.84419671746100500), (+1.9021436810744254, +0.67872364000209962), (+1.5789927941858894, +0.48531572814792223), (+1.8685655351482198, +0.81547857379764033), (+1.4207761506758989, +0.45613742340731522), (+1.9748184832413012, +0.37147032193176310), (+1.9066854889124218, +0.29003621604519259), (+1.8453699033827222, +0.80686769410551940), (+1.9378212663090180, +0.80594781584851516), (+1.4931576117692051, +0.74454456523759838), (+1.1262778078084050, +0.56522144769859339), (+1.0594872419283963, +0.24464220134891790), (+1.0632648664944093, +0.97652022984576692), (+1.2418777635232381, +0.16042750319081200E-1), (+1.4534006476895227, +0.21620122723118684), (+1.4358848713459902, +0.40279322296402298), (+1.5250838688243973, +0.51055829648400775), (+1.2348049013782481, +0.84104941738066907), (+1.7005313322800819, +0.24086497474350321E-1), (+1.6433478497923817, +0.82931086323834613), (+1.5876816541380308, +0.26141436823211783), (+1.9060861345466491, +0.56839866745774759), (+1.5074362371605519, +0.52007298358103660), (+1.4497659946486356, +0.69813563424617286), (+1.4934928244406445, +0.47573664489216017), (+1.3079780848910783, +0.67721449436884718), (+1.9021982928164118, +0.63466643651961741), (+1.8262188258848475, +0.50211717560753666), (+1.5072053109810404, +0.62827016332526564), (+1.3681478662526789, +0.58101349969252569), (+1.5293282907767960, +0.45871436896061146), (+1.9062726368755460, +0.95549902625751582E-1), (+1.1635897680844698, +0.50576061282802198), (+1.4775772714022493, +0.70032147349448981), (+1.0192183570493154, +0.82916263868344275E-1), (+1.5113495336423537, +0.87619315281902233), (+1.7533402433691352, +0.25657719790620936), (+1.6474579652202210, +0.52077043030457604), (+1.1133034980775602, +0.47118198309084980), (+1.5464726077348503, +0.18438755435773613), (+1.9070485364858087, +0.21536107690699835), (+1.1207132042688248, +0.73414211337452984), (+1.3922952709720651, +0.25323110408561611E-2), (+1.0677271996645561, +0.55502326761158760), (+1.2893073189461697, +0.25643101471164365), (+1.5140353232062802, +0.29091849608157916E-1), (+1.6971784593706261, +0.13047110641691284E-1), (+1.4886374309987942, +0.77558359520367937), (+1.5151329868642542, +0.17679678400812637), (+1.5630022109627824, +0.79950349704282353)
24
25atad = getFFTI(getFFTF(data))
26atad
27(+1.3146774009891349, +0.71946998663327433), (+1.2506999735784998, +0.80465706288501626), (+1.7048422737962747, +0.99047226458055371), (+1.6878593843755012, +0.51236644562613143), (+1.7960651396904719, +0.52055869361766205), (+1.1633512604706162, +0.86831910650836952), (+1.2497773383337174, +0.74273073491997177), (+1.0309501644244057, +0.20398019647536703), (+1.0667684500582060, +0.23300307382680668), (+1.8012028794358983, +0.78800693396315347E-1), (+1.5003291694148368, +0.96330629742582141), (+1.2314228803450131, +0.85144517920488227), (+1.7387562813517394, +0.68264515825399785), (+1.2975786730967154, +0.68204883359345025), (+1.0247353092327032, +0.99529907289054376), (+1.5389792235916313, +0.45852772782319029), (+1.9088826203702103, +0.60200006549239038), (+1.8116078743220452, +0.56032470387500088), (+1.4472194221566337, +0.16052015066241154E-1), (+1.9556232616091076, +0.59967766699715996), (+1.4416089496422098, +0.89069682837643371), (+1.8139245031493629, +0.36432839873539857), (+1.1345048950839050, +0.61919488144071111E-1), (+1.4049136283930568, +0.81957595011661355), (+1.9363904897562927, +0.18568247872363278), (+1.8746198430025007, +0.80518207015379017), (+1.3092731020337391, +0.66790603977308471), (+1.4177919561407133, +0.92245644700473173), (+1.8041047294460855, +0.33362675998051483), (+1.4319475786131666, +0.86575848130154864), (+1.9654745251898449, +0.89936758387411242), (+1.3009461518714529, +0.72420753768666635), (+1.5668529421436173, +0.86594592255226788), (+1.3963751915787141, +0.58369610158405982), (+1.7807839802281609, +0.15883385123545457), (+1.7014204889310816, +0.62458177179187979), (+1.8082057294210505, +0.80964525417028166), (+1.5109421514705770, +0.75423351187090337), (+1.1440557472988000, +0.79721209005039828), (+1.4202359127217519, +0.68278113673456065), (+1.2613718819218547, +0.84969288778591801), (+1.8845564226931484, +0.33294572529931921), (+1.8814186944443894, +0.84645127779919205), (+1.8770829280827654, +0.79087553660984833), (+1.0349958685507090, +0.80443240700647878), (+1.6125205797167674, +0.84419671746100466), (+1.9021436810744252, +0.67872364000209928), (+1.5789927941858897, +0.48531572814792201), (+1.8685655351482198, +0.81547857379763999), (+1.4207761506758989, +0.45613742340731489), (+1.9748184832413014, +0.37147032193176288), (+1.9066854889124216, +0.29003621604519220), (+1.8453699033827220, +0.80686769410551906), (+1.9378212663090173, +0.80594781584851460), (+1.4931576117692054, +0.74454456523759815), (+1.1262778078084055, +0.56522144769859262), (+1.0594872419283963, +0.24464220134891784), (+1.0632648664944091, +0.97652022984576603), (+1.2418777635232381, +0.16042750319081173E-1), (+1.4534006476895225, +0.21620122723118648), (+1.4358848713459900, +0.40279322296402276), (+1.5250838688243973, +0.51055829648400708), (+1.2348049013782481, +0.84104941738066885), (+1.7005313322800815, +0.24086497474349634E-1), (+1.6433478497923817, +0.82931086323834569), (+1.5876816541380310, +0.26141436823211778), (+1.9060861345466491, +0.56839866745774748), (+1.5074362371605514, +0.52007298358103649), (+1.4497659946486354, +0.69813563424617286), (+1.4934928244406445, +0.47573664489216005), (+1.3079780848910780, +0.67721449436884729), (+1.9021982928164121, +0.63466643651961718), (+1.8262188258848480, +0.50211717560753688), (+1.5072053109810404, +0.62827016332526542), (+1.3681478662526787, +0.58101349969252591), (+1.5293282907767960, +0.45871436896061141), (+1.9062726368755458, +0.95549902625751637E-1), (+1.1635897680844693, +0.50576061282802165), (+1.4775772714022493, +0.70032147349449003), (+1.0192183570493154, +0.82916263868343831E-1), (+1.5113495336423537, +0.87619315281902177), (+1.7533402433691354, +0.25657719790620936), (+1.6474579652202213, +0.52077043030457570), (+1.1133034980775600, +0.47118198309084963), (+1.5464726077348501, +0.18438755435773591), (+1.9070485364858081, +0.21536107690699835), (+1.1207132042688248, +0.73414211337452973), (+1.3922952709720651, +0.25323110408557725E-2), (+1.0677271996645556, +0.55502326761158749), (+1.2893073189461695, +0.25643101471164376), (+1.5140353232062800, +0.29091849608158027E-1), (+1.6971784593706254, +0.13047110641691062E-1), (+1.4886374309987938, +0.77558359520367881), (+1.5151329868642540, +0.17679678400812610), (+1.5630022109627824, +0.79950349704282320), (+0.11102230246251565E-15, -0.49960036108132044E-15), (-0.11102230246251565E-15, +0.55511151231257827E-16), (+0.0000000000000000, -0.16653345369377348E-15), (-0.11102230246251565E-15, +0.23592239273284576E-15), (-0.44408920985006262E-15, -0.22204460492503131E-15), (-0.22204460492503131E-15, +0.11102230246251565E-15), (-0.22204460492503131E-15, +0.0000000000000000), (-0.11102230246251565E-15, +0.16653345369377348E-15), (-0.22204460492503131E-15, +0.0000000000000000), (-0.33306690738754696E-15, -0.27755575615628914E-15), (+0.0000000000000000, +0.0000000000000000), (-0.22204460492503131E-15, -0.11102230246251565E-15), (-0.33306690738754696E-15, -0.27755575615628914E-15), (-0.33306690738754696E-15, -0.33306690738754696E-15), (+0.11102230246251565E-15, -0.11102230246251565E-15), (-0.22204460492503131E-15, +0.55511151231257827E-16), (+0.22204460492503131E-15, +0.11102230246251565E-15), (-0.11102230246251565E-15, +0.22204460492503131E-15), (+0.44408920985006262E-15, +0.55511151231257827E-16), (+0.66613381477509392E-15, +0.24980018054066022E-15), (+0.33306690738754696E-15, +0.55511151231257827E-16), (-0.22204460492503131E-15, +0.38857805861880479E-15), (+0.22204460492503131E-15, +0.55511151231257827E-15), (-0.22204460492503131E-15, +0.38857805861880479E-15), (+0.11102230246251565E-15, +0.38857805861880479E-15), (-0.11102230246251565E-15, -0.97144514654701197E-16), (+0.22204460492503131E-15, -0.55511151231257827E-16), (-0.11102230246251565E-15, +0.13877787807814457E-15), (+0.22204460492503131E-15, +0.13877787807814457E-15), (-0.44408920985006262E-15, +0.49960036108132044E-15), (+0.0000000000000000, +0.66613381477509392E-15), (-0.22204460492503131E-15, +0.83266726846886741E-15), (+0.44408920985006262E-15, +0.90899510141184692E-15)
28reltol = sqrt(epsilon(1._TKC))
29reltol
30+0.14901161193847656E-7
31isClose(data, atad(1:size(data)), reltol = reltol)
32T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
33call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
34
35lenData = getUnifRand(5, 100)
36lenData
37+6
38data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
39data
40(+1.51764836620892266432098549449626222, +0.146983056011208592010940730031051394), (+1.21062688068903064916386648068188424, +0.281721305821479018546656626106074028), (+1.94962264930519620613083026308909780, +0.369491863334777926577680096385229661), (+1.79734570575230380286345484973910767, +0.860571181962484175054834178500385180), (+1.67235126542663658999678748832372836, +0.667649040230010682015395736268961949E-1), (+1.29359536971612206899386460377332943, +0.499004465504101303656859005406032027)
41
42atad = getFFTI(getFFTF(data))
43atad
44(+1.51764836620892266432098549449626222, +0.146983056011208592010940730031051370), (+1.21062688068903064916386648068188424, +0.281721305821479018546656626106074028), (+1.94962264930519620613083026308909780, +0.369491863334777926577680096385229661), (+1.79734570575230380286345484973910748, +0.860571181962484175054834178500385084), (+1.67235126542663658999678748832372856, +0.667649040230010682015395736268962672E-1), (+1.29359536971612206899386460377332943, +0.499004465504101303656859005406031931), (+0.00000000000000000000000000000000000, +0.240741243048404481631997242823115915E-34), (+0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34)
45reltol = sqrt(epsilon(1._TKC))
46reltol
47+0.138777878078144567552953958511352539E-16
48isClose(data, atad(1:size(data)), reltol = reltol)
49T, T, T, T, T, T
50call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
51
52lenData = getUnifRand(5, 100)
53lenData
54+26
55data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
56data
57+1.40542960, +1.44631851, +1.29450381, +1.58691359, +1.44463718, +1.86287820, +1.94163370, +1.56664658, +1.51896942, +1.89694262, +1.72284818, +1.92229319, +1.14037347, +1.09923363, +1.57491469, +1.16234040, +1.58528972, +1.57889915, +1.58042526, +1.88099456, +1.93948388, +1.02023053, +1.18610680, +1.41859066, +1.65512347, +1.81536674
58
59atad = getFFTI(getFFTF(data))
60atad
61+1.40542960, +1.44631839, +1.29450381, +1.58691370, +1.44463682, +1.86287808, +1.94163346, +1.56664658, +1.51896942, +1.89694262, +1.72284842, +1.92229307, +1.14037371, +1.09923363, +1.57491481, +1.16234016, +1.58528972, +1.57889915, +1.58042514, +1.88099468, +1.93948364, +1.02023053, +1.18610644, +1.41859031, +1.65512335, +1.81536674, -0.596046448E-7, +0.238418579E-6, -0.119209290E-6, +0.298023224E-6, +0.119209290E-6, +0.238418579E-6
62reltol = sqrt(epsilon(1._TKC))
63reltol
64+0.345266977E-3
65isClose(data, atad(1:size(data)), reltol = reltol)
66T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
67call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
68
69lenData = getUnifRand(5, 100)
70lenData
71+83
72data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
73data
74+1.7026093829991296, +1.0824706520785943, +1.8013985858280956, +1.0535817334659729, +1.0665542772236947, +1.0958638002595293, +1.5028955161149069, +1.8193922783459118, +1.3429002242799011, +1.0971940006254570, +1.2561509727120090, +1.0435632863502420, +1.6403357675429104, +1.6598206662248005, +1.2307319172730824, +1.4099468169513030, +1.2109890044798679, +1.0151945620986589, +1.9561293788840011, +1.9596216149584382, +1.5357012246558144, +1.5230244379379374, +1.1108256693162950, +1.9996186480725577, +1.2922984521473455, +1.8364196750274329, +1.7545778056531256, +1.3363091077840168, +1.5570068906724059, +1.3479166714010864, +1.3171434322194280, +1.8977993536127167, +1.9145858698178242, +1.8646785951194755, +1.4967920531691798, +1.2069811736153322, +1.7805009698638354, +1.5452080650244064, +1.7413811464063604, +1.3451223524844691, +1.6878024239825331, +1.2330491029471493, +1.3521761512260579, +1.4310480896441766, +1.5021068871205101, +1.8544795345767451, +1.8448154997493198, +1.8408354707534591, +1.1257405620863323, +1.8498710324406020, +1.1823857752941402, +1.6383045611272495, +1.9132716528918192, +1.7824816967323129, +1.4375407853464246, +1.9959882499834074, +1.0035027634718028, +1.9297282005455099, +1.6519704918791351, +1.3078398981447230, +1.9049218714067420, +1.8332376749196158, +1.4921770047461278, +1.5459128070658601, +1.8324858413477423, +1.6355956254715440, +1.9923255953777561, +1.1057781534603175, +1.7030802467968926, +1.5631624892819636, +1.4513952590457215, +1.7703603040241180, +1.4061747113323655, +1.7747660600397612, +1.4272661741513988, +1.7804791463589713, +1.3021089885396799, +1.6763212669810010, +1.0068481709679225, +1.1998147255729570, +1.3833831805313399, +1.8689797035328926, +1.6420989708266289
75
76atad = getFFTI(getFFTF(data))
77atad
78+1.7026093829991296, +1.0824706520785941, +1.8013985858280959, +1.0535817334659732, +1.0665542772236940, +1.0958638002595296, +1.5028955161149060, +1.8193922783459118, +1.3429002242799009, +1.0971940006254568, +1.2561509727120095, +1.0435632863502420, +1.6403357675429098, +1.6598206662248003, +1.2307319172730820, +1.4099468169513028, +1.2109890044798681, +1.0151945620986587, +1.9561293788840004, +1.9596216149584387, +1.5357012246558139, +1.5230244379379374, +1.1108256693162941, +1.9996186480725575, +1.2922984521473453, +1.8364196750274324, +1.7545778056531254, +1.3363091077840172, +1.5570068906724055, +1.3479166714010866, +1.3171434322194275, +1.8977993536127165, +1.9145858698178246, +1.8646785951194755, +1.4967920531691801, +1.2069811736153322, +1.7805009698638354, +1.5452080650244060, +1.7413811464063602, +1.3451223524844684, +1.6878024239825331, +1.2330491029471491, +1.3521761512260584, +1.4310480896441771, +1.5021068871205105, +1.8544795345767446, +1.8448154997493198, +1.8408354707534589, +1.1257405620863330, +1.8498710324406025, +1.1823857752941402, +1.6383045611272493, +1.9132716528918192, +1.7824816967323125, +1.4375407853464248, +1.9959882499834065, +1.0035027634718032, +1.9297282005455094, +1.6519704918791351, +1.3078398981447230, +1.9049218714067424, +1.8332376749196151, +1.4921770047461280, +1.5459128070658597, +1.8324858413477423, +1.6355956254715447, +1.9923255953777559, +1.1057781534603177, +1.7030802467968928, +1.5631624892819633, +1.4513952590457215, +1.7703603040241176, +1.4061747113323653, +1.7747660600397615, +1.4272661741513986, +1.7804791463589718, +1.3021089885396806, +1.6763212669810008, +1.0068481709679231, +1.1998147255729563, +1.3833831805313399, +1.8689797035328926, +1.6420989708266287, -0.11102230246251565E-15, +0.88817841970012523E-15, +0.22204460492503131E-15, +0.88817841970012523E-15, -0.22204460492503131E-15, +0.44408920985006262E-15, +0.11102230246251565E-15, +0.11102230246251565E-15, -0.55511151231257827E-15, +0.44408920985006262E-15, +0.22204460492503131E-15, +0.55511151231257827E-15, -0.11102230246251565E-15, -0.77715611723760958E-15, +0.55511151231257827E-15, -0.22204460492503131E-15, -0.11102230246251565E-15, +0.0000000000000000, +0.77715611723760958E-15, +0.0000000000000000, +0.66613381477509392E-15, -0.11102230246251565E-15, +0.0000000000000000, +0.0000000000000000, -0.11102230246251565E-15, -0.44408920985006262E-15, +0.44408920985006262E-15, -0.11102230246251565E-15, -0.22204460492503131E-15, +0.0000000000000000, +0.0000000000000000, -0.22204460492503131E-15, +0.11102230246251565E-15, -0.44408920985006262E-15, +0.55511151231257827E-15, -0.22204460492503131E-15, +0.99920072216264089E-15, -0.22204460492503131E-15, +0.33306690738754696E-15, +0.11102230246251565E-15, +0.33306690738754696E-15, -0.11102230246251565E-14, +0.22204460492503131E-15, -0.22204460492503131E-15, +0.66613381477509392E-15
79reltol = sqrt(epsilon(1._TKC))
80reltol
81+0.14901161193847656E-7
82isClose(data, atad(1:size(data)), reltol = reltol)
83T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
84call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
85
86lenData = getUnifRand(5, 100)
87lenData
88+76
89data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
90data
91+1.09270491079394048495599269914188771, +1.21354723984238681909876934313241426, +1.70728995590322284095327285698565167, +1.23428107099237828843406814848628173, +1.18442580130863233186386344727024251, +1.08894394702888576248877991504541628, +1.68829467484503654556734741477664127, +1.09129113205769208823606134250206827, +1.77051502477052587475263495085099309, +1.89279429992333705478969181376181465, +1.74239938156302196444271835023525711, +1.06596502975992851140802084774644578, +1.97941823466890323073401992132756476, +1.43804131261745854502843526552873770, +1.97552458137553463869786351421198570, +1.96911254725797060851131987440957810, +1.28325470490966286584545184934361723, +1.41993477598049096965960535166328533, +1.89166641564708192521462961976686964, +1.30457583335475889612821776885099539, +1.06466379239301905094107392714202750, +1.49209658311096178626043181862295770, +1.44151039663670463359569232136644263, +1.29129944033795612067044777374442649, +1.21897503875922776731715522179500380, +1.12828279400644617310851327448196222, +1.52039803496452068462273750715956615, +1.42657484809708649912320390277512371, +1.39678603952213390384591725190205314, +1.75598749757705763737942999500520855, +1.51682088602423054930440444953674419, +1.63157384651136017597447324987308555, +1.68272516556754315920038096257004821, +1.36827357757132351286905874089814135, +1.46888003952136739129556570490863502, +1.95487260426543582920856854764261652, +1.42866384428671422596864458368276429, +1.86848648632054166110415344983691787, +1.61275208256180529378088560061751864, +1.36367006508224617243060956210835164, +1.26789330542341898693154193262596594, +1.04519552346529295040197633972928224, +1.20348325697552695052778506993388239, +1.05876877747922234822661018780652660, +1.78957081941307181220545242731478596, +1.69995917207115321688468427594425350, +1.31038898714645579038769574244016561, +1.11658369300670905719211282333789210, +1.42736032630284533767961337539591972, +1.09642875005256241774151415283545530, +1.19200370173731038988050282723464521, +1.03204433813066811236208167455545478, +1.51649836077158949015082949655471287, +1.83684765758186819951447638278490758, +1.42894693001038704374486655636117156, +1.41445177669671789400875955438994701, +1.46848220623711046241293817399601617, +1.01661781683972530389931010831735993, +1.36626673194073972662299968439667309, +1.63532499657491256866156197416491368, +1.44017187473107250627821126443210044, +1.24178758693141134182502534738759498, +1.53484659152772747106837745408505831, +1.82750363137187827494487336306929866, +1.52503787761239138223695517780126186, +1.06085477670849937685859707141956615, +1.30875350425625846273108433671219947, +1.91951220259055757786928222949494280, +1.50724834666687243189897995304604818, +1.97236296119925390319528170159141892, +1.55359853199721297944602390208389640, +1.66399047920955278140415321131661228, +1.34893154289264552767106410665272396, +1.78381677078406463551701207355999929, +1.23281868629026593514648529385231565, +1.61220889504925619238627675564960553
92
93atad = getFFTI(getFFTF(data))
94atad
95+1.09270491079394048495599269914188771, +1.21354723984238681909876934313241446, +1.70728995590322284095327285698565187, +1.23428107099237828843406814848628193, +1.18442580130863233186386344727024213, +1.08894394702888576248877991504541609, +1.68829467484503654556734741477664127, +1.09129113205769208823606134250206808, +1.77051502477052587475263495085099367, +1.89279429992333705478969181376181542, +1.74239938156302196444271835023525749, +1.06596502975992851140802084774644578, +1.97941823466890323073401992132756495, +1.43804131261745854502843526552873770, +1.97552458137553463869786351421198608, +1.96911254725797060851131987440957829, +1.28325470490966286584545184934361704, +1.41993477598049096965960535166328572, +1.89166641564708192521462961976686964, +1.30457583335475889612821776885099578, +1.06466379239301905094107392714202750, +1.49209658311096178626043181862295770, +1.44151039663670463359569232136644225, +1.29129944033795612067044777374442649, +1.21897503875922776731715522179500361, +1.12828279400644617310851327448196242, +1.52039803496452068462273750715956615, +1.42657484809708649912320390277512448, +1.39678603952213390384591725190205294, +1.75598749757705763737942999500520893, +1.51682088602423054930440444953674419, +1.63157384651136017597447324987308612, +1.68272516556754315920038096257004841, +1.36827357757132351286905874089814154, +1.46888003952136739129556570490863522, +1.95487260426543582920856854764261691, +1.42866384428671422596864458368276468, +1.86848648632054166110415344983691806, +1.61275208256180529378088560061751903, +1.36367006508224617243060956210835164, +1.26789330542341898693154193262596613, +1.04519552346529295040197633972928224, +1.20348325697552695052778506993388259, +1.05876877747922234822661018780652660, +1.78957081941307181220545242731478635, +1.69995917207115321688468427594425389, +1.31038898714645579038769574244016599, +1.11658369300670905719211282333789210, +1.42736032630284533767961337539591972, +1.09642875005256241774151415283545511, +1.19200370173731038988050282723464540, +1.03204433813066811236208167455545459, +1.51649836077158949015082949655471325, +1.83684765758186819951447638278490758, +1.42894693001038704374486655636117195, +1.41445177669671789400875955438994662, +1.46848220623711046241293817399601617, +1.01661781683972530389931010831735974, +1.36626673194073972662299968439667348, +1.63532499657491256866156197416491368, +1.44017187473107250627821126443210063, +1.24178758693141134182502534738759498, +1.53484659152772747106837745408505870, +1.82750363137187827494487336306929904, +1.52503787761239138223695517780126205, +1.06085477670849937685859707141956596, +1.30875350425625846273108433671219928, +1.91951220259055757786928222949494338, +1.50724834666687243189897995304604837, +1.97236296119925390319528170159141892, +1.55359853199721297944602390208389659, +1.66399047920955278140415321131661228, +1.34893154289264552767106410665272376, +1.78381677078406463551701207355999987, +1.23281868629026593514648529385231527, +1.61220889504925619238627675564960591, +0.00000000000000000000000000000000000, -0.674075480535532548569592279904724561E-33, -0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33, -0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.577778983316170755916793382775478196E-33, -0.866668474974256133875190074163217293E-33, -0.577778983316170755916793382775478196E-33, -0.481482486096808963263994485646231830E-33, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000, -0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, -0.577778983316170755916793382775478196E-33, -0.481482486096808963263994485646231830E-33, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.674075480535532548569592279904724561E-33, -0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, +0.481482486096808963263994485646231830E-33, -0.481482486096808963263994485646231830E-33, +0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-33, -0.288889491658085377958396691387739098E-33, -0.674075480535532548569592279904724561E-33, -0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-33, -0.288889491658085377958396691387739098E-33
96reltol = sqrt(epsilon(1._TKC))
97reltol
98+0.138777878078144567552953958511352539E-16
99isClose(data, atad(1:size(data)), reltol = reltol)
100T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
101call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
102
103lenData = getUnifRand(5, 100)
104lenData
105+33
106data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
107data
108(+1.70118332, +0.232354760), (+1.89754462, +0.518412709), (+1.42684412, +0.833704054), (+1.41520238, +0.558823526), (+1.60636449, +0.388871431E-1), (+1.13795185, +0.268717825), (+1.69313419, +0.951172590), (+1.53780222, +0.812407851), (+1.75335646, +0.783962250), (+1.42071629, +0.860061586), (+1.31725454, +0.213981330), (+1.76170111, +0.846782744), (+1.06706023, +0.359770656E-1), (+1.55879486, +0.884879827), (+1.08382130, +0.189412951), (+1.88605714, +0.258997083E-1), (+1.30599093, +0.893177569), (+1.84775829, +0.242422640), (+1.44870055, +0.665173292), (+1.35183442, +0.281520784), (+1.30730700, +0.483703613E-1), (+1.46778631, +0.824953556), (+1.13342476, +0.401215792), (+1.13496113, +0.228063166), (+1.27063084, +0.219284475), (+1.28652668, +0.231660843), (+1.44604850, +0.315189540), (+1.61884856, +0.680421233), (+1.41531444, +0.469161689), (+1.62110150, +0.245432377), (+1.16682720, +0.457460523), (+1.29358530, +0.438108027), (+1.20711088, +0.708679795)
109
110atad = getFFTI(getFFTF(data))
111atad
112(+1.70118332, +0.232354730), (+1.89754438, +0.518412650), (+1.42684388, +0.833703995), (+1.41520214, +0.558823228), (+1.60636449, +0.388870463E-1), (+1.13795197, +0.268717706), (+1.69313419, +0.951172471), (+1.53780222, +0.812407613), (+1.75335634, +0.783962250), (+1.42071605, +0.860061526), (+1.31725430, +0.213981479), (+1.76170099, +0.846782804), (+1.06706023, +0.359771848E-1), (+1.55879474, +0.884879947), (+1.08382130, +0.189413056), (+1.88605726, +0.258998200E-1), (+1.30599093, +0.893177509), (+1.84775829, +0.242422491), (+1.44870043, +0.665173054), (+1.35183442, +0.281520665), (+1.30730700, +0.483703241E-1), (+1.46778631, +0.824953675), (+1.13342476, +0.401215732), (+1.13496113, +0.228063196), (+1.27063060, +0.219284475), (+1.28652656, +0.231660947), (+1.44604826, +0.315189421), (+1.61884844, +0.680421114), (+1.41531420, +0.469161808), (+1.62110138, +0.245432481), (+1.16682720, +0.457460433), (+1.29358530, +0.438108206), (+1.20711088, +0.708679795), (+0.298023224E-6, +0.596046448E-7), (+0.178813934E-6, +0.00000000), (+0.417232513E-6, +0.357627869E-6), (-0.596046448E-7, +0.819563866E-7), (+0.00000000, +0.104308128E-6), (+0.119209290E-6, +0.119209290E-6), (+0.00000000, +0.238418579E-6), (+0.00000000, -0.894069672E-7), (+0.238418579E-6, +0.00000000), (+0.596046448E-7, -0.156462193E-6), (+0.238418579E-6, +0.298023224E-7), (-0.596046448E-7, -0.149011612E-6), (+0.178813934E-6, -0.894069672E-7), (+0.596046448E-7, -0.447034836E-7), (+0.00000000, +0.745058060E-8), (-0.596046448E-7, -0.298023224E-7), (+0.596046448E-7, +0.141561031E-6), (+0.596046448E-7, +0.119209290E-6), (+0.357627869E-6, +0.193715096E-6), (-0.596046448E-7, -0.372529030E-7), (+0.119209290E-6, -0.894069672E-7), (+0.00000000, +0.745058060E-7), (+0.596046448E-7, +0.00000000), (+0.596046448E-7, +0.00000000), (+0.119209290E-6, -0.149011612E-7), (+0.596046448E-7, +0.119209290E-6), (+0.238418579E-6, +0.119209290E-6), (+0.178813934E-6, -0.745058060E-7), (+0.238418579E-6, -0.745058060E-7), (+0.596046448E-7, +0.298023224E-7), (+0.178813934E-6, -0.238418579E-6)
113reltol = sqrt(epsilon(1._TKC))
114reltol
115+0.345266977E-3
116isClose(data, atad(1:size(data)), reltol = reltol)
117T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
118call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
119
120lenData = getUnifRand(5, 100)
121lenData
122+98
123data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
124data
125(+1.8867539324547256, +0.56458761576245875), (+1.9552632360769950, +0.17471128178650963), (+1.3215146989306525, +0.14645308274363245), (+1.8757051267663463, +0.70667379797900887), (+1.9965774305462389, +0.62214607334289418), (+1.8187887075006919, +0.45201109207176748), (+1.9581630135178432, +0.41041302396552681E-1), (+1.7634459958796498, +0.43051325233780424), (+1.8898322782516415, +0.33341308494470889), (+1.5780349151580881, +0.49935705900252703), (+1.7413930798785264, +0.83469504825825036), (+1.7477857993017318, +0.98072636712286054E-1), (+1.8960452578820230, +0.54389817107390004), (+1.1345686969076376, +0.26993051383176936), (+1.0546643531140714, +0.55495429953122444), (+1.2504788664672946, +0.74457849384585328), (+1.7014666518542114, +0.71974915007601747), (+1.9888652118161869, +0.60912022034790003), (+1.9049845982911120, +0.92692281728221060), (+1.9028495808974606, +0.45818970945396342), (+1.7942890567777257, +0.16107919296411544), (+1.1666303787748671, +0.23714025238385683), (+1.5264256803766763, +0.79266734196126787), (+1.8220845505735608, +0.73472412412954013), (+1.4015157920703363, +0.38786156430038199), (+1.9725306583073565, +0.80995004273696536), (+1.7622252635698292, +0.32947150644724532), (+1.5679081696968558, +0.10561729161673994), (+1.8801828126462004, +0.15989135749483463E-3), (+1.2545143920179298, +0.27178580390247165), (+1.9697204232210916, +0.82197688619655285), (+1.7664162169462507, +0.77755544065869797), (+1.2681376591867619, +0.69204587907699855), (+1.2050781591358937, +0.58339850863934839), (+1.4076549262641227, +0.34193132079456368), (+1.6781061547246339, +0.46962251176063363), (+1.1381136917328636, +0.56912233930629375), (+1.1788219432158686, +0.52674413020095878), (+1.7918961027210860, +0.85109841680318776), (+1.1152524807945297, +0.45769708376869045), (+1.1735856284311010, +0.80512620433558735), (+1.4208217828679275, +0.24764118075589314E-1), (+1.4893197683206569, +0.54349311884978690), (+1.1289655644644325, +0.56042871961837615), (+1.1853122593811860, +0.99272598819998192), (+1.6645287310654231, +0.36850521236513012), (+1.7116445182747211, +0.28012347915980373), (+1.5639096341403538, +0.36743398749673650), (+1.8370023328120393, +0.50006922490601169), (+1.3154351366265777, +0.15060335197238184), (+1.6853118958977156, +0.76874002872088454), (+1.8122795693424067, +0.11612448902160966), (+1.1202767072959214, +0.74596531113542142), (+1.2858468408950152, +0.99063942757580714), (+1.5693701163603322, +0.30352133181762142), (+1.8694313278918839, +0.73406929056155890), (+1.4384748929966256, +0.41272009383360497), (+1.4485135288727915, +0.67241493754439274), (+1.9652777334356630, +0.62335179485814241), (+1.2990092199684722, +0.89170526465859323), (+1.0055882210965603, +0.93284239026094207), (+1.8227159559299526, +0.74409774812165952), (+1.1059628654752842, +0.58075045137746251), (+1.8467720657141529, +0.36521797998228200), (+1.7657318964701441, +0.42290895390196093), (+1.8918520448259672, +0.61142776679225819), (+1.1230373434788157, +0.97344588024929557), (+1.7899493292097812, +0.28035628639346222), (+1.9414777808396622, +0.15247903203812074), (+1.3888752430930924, +0.32734774169247860), (+1.7100162722413119, +0.90806562293191229), (+1.0309460267923183, +0.28777449035522318), (+1.4462999690623033, +0.79668525677053015), (+1.6261716711290719, +0.25081140679289460E-1), (+1.6873847404770230, +0.47376831349662119), (+1.6555724698613625, +0.38506403803250189), (+1.1420793675053185, +0.12072769271184203), (+1.8112594570673597, +0.45109953905673450), (+1.2665985424088615, +0.85069560443253112), (+1.0396088860446655, +0.36226483311847113), (+1.3043520093089975, +0.30299640330146149), (+1.4558833231685635, +0.63565696522186876), (+1.9629276855497662, +0.74729419272329156), (+1.0393739627292540, +0.62895513699892747), (+1.3205792062198469, +0.95439603503444614), (+1.3092616383374485, +0.84836914329741653), (+1.9477726269204907, +0.28892404733780186E-1), (+1.3264113338638559, +0.59020226447054480), (+1.2378206253847752, +0.62712653249152295), (+1.0241208045533696, +0.36790928715615856), (+1.4369809336231825, +0.34737129852663584), (+1.7203550045882772, +0.71811380080317266), (+1.2827903872685680, +0.24914319004325092), (+1.1213625863504006, +0.16132793286117741), (+1.3229964720962974, +0.92306826458973856), (+1.2338443730309452, +0.87536645528236467), (+1.0309729863779351, +0.83734710620491115), (+1.9580501050606887, +0.94354330866613034)
126
127atad = getFFTI(getFFTF(data))
128atad
129(+1.8867539324547256, +0.56458761576245886), (+1.9552632360769955, +0.17471128178650983), (+1.3215146989306523, +0.14645308274363261), (+1.8757051267663460, +0.70667379797900920), (+1.9965774305462389, +0.62214607334289418), (+1.8187887075006919, +0.45201109207176782), (+1.9581630135178427, +0.41041302396552737E-1), (+1.7634459958796498, +0.43051325233780446), (+1.8898322782516417, +0.33341308494470911), (+1.5780349151580886, +0.49935705900252725), (+1.7413930798785267, +0.83469504825825047), (+1.7477857993017318, +0.98072636712286138E-1), (+1.8960452578820233, +0.54389817107390015), (+1.1345686969076378, +0.26993051383176980), (+1.0546643531140714, +0.55495429953122455), (+1.2504788664672946, +0.74457849384585373), (+1.7014666518542114, +0.71974915007601759), (+1.9888652118161874, +0.60912022034790037), (+1.9049845982911120, +0.92692281728221049), (+1.9028495808974606, +0.45818970945396348), (+1.7942890567777257, +0.16107919296411527), (+1.1666303787748673, +0.23714025238385711), (+1.5264256803766756, +0.79266734196126754), (+1.8220845505735603, +0.73472412412954025), (+1.4015157920703361, +0.38786156430038204), (+1.9725306583073561, +0.80995004273696558), (+1.7622252635698290, +0.32947150644724554), (+1.5679081696968555, +0.10561729161674005), (+1.8801828126462001, +0.15989135749491790E-3), (+1.2545143920179298, +0.27178580390247198), (+1.9697204232210912, +0.82197688619655285), (+1.7664162169462503, +0.77755544065869786), (+1.2681376591867615, +0.69204587907699833), (+1.2050781591358937, +0.58339850863934850), (+1.4076549262641227, +0.34193132079456334), (+1.6781061547246336, +0.46962251176063319), (+1.1381136917328640, +0.56912233930629363), (+1.1788219432158686, +0.52674413020095878), (+1.7918961027210858, +0.85109841680318732), (+1.1152524807945299, +0.45769708376869012), (+1.1735856284311008, +0.80512620433558724), (+1.4208217828679273, +0.24764118075589425E-1), (+1.4893197683206569, +0.54349311884978657), (+1.1289655644644325, +0.56042871961837604), (+1.1853122593811860, +0.99272598819998159), (+1.6645287310654231, +0.36850521236513012), (+1.7116445182747204, +0.28012347915980340), (+1.5639096341403538, +0.36743398749673634), (+1.8370023328120393, +0.50006922490601147), (+1.3154351366265780, +0.15060335197238156), (+1.6853118958977156, +0.76874002872088409), (+1.8122795693424067, +0.11612448902160966), (+1.1202767072959217, +0.74596531113542119), (+1.2858468408950150, +0.99063942757580670), (+1.5693701163603320, +0.30352133181762098), (+1.8694313278918837, +0.73406929056155823), (+1.4384748929966256, +0.41272009383360475), (+1.4485135288727913, +0.67241493754439241), (+1.9652777334356628, +0.62335179485814174), (+1.2990092199684722, +0.89170526465859301), (+1.0055882210965605, +0.93284239026094173), (+1.8227159559299522, +0.74409774812165907), (+1.1059628654752842, +0.58075045137746206), (+1.8467720657141526, +0.36521797998228167), (+1.7657318964701441, +0.42290895390196093), (+1.8918520448259672, +0.61142776679225797), (+1.1230373434788155, +0.97344588024929557), (+1.7899493292097810, +0.28035628639346255), (+1.9414777808396622, +0.15247903203812066), (+1.3888752430930924, +0.32734774169247860), (+1.7100162722413121, +0.90806562293191218), (+1.0309460267923183, +0.28777449035522307), (+1.4462999690623033, +0.79668525677053037), (+1.6261716711290721, +0.25081140679289599E-1), (+1.6873847404770232, +0.47376831349662102), (+1.6555724698613625, +0.38506403803250211), (+1.1420793675053185, +0.12072769271184211), (+1.8112594570673599, +0.45109953905673417), (+1.2665985424088617, +0.85069560443253145), (+1.0396088860446655, +0.36226483311847085), (+1.3043520093089978, +0.30299640330146144), (+1.4558833231685639, +0.63565696522186854), (+1.9629276855497664, +0.74729419272329178), (+1.0393739627292540, +0.62895513699892724), (+1.3205792062198469, +0.95439603503444603), (+1.3092616383374487, +0.84836914329741631), (+1.9477726269204902, +0.28892404733779742E-1), (+1.3264113338638559, +0.59020226447054436), (+1.2378206253847750, +0.62712653249152284), (+1.0241208045533696, +0.36790928715615856), (+1.4369809336231820, +0.34737129852663540), (+1.7203550045882767, +0.71811380080317255), (+1.2827903872685682, +0.24914319004325089), (+1.1213625863504009, +0.16132793286117700), (+1.3229964720962974, +0.92306826458973812), (+1.2338443730309452, +0.87536645528236423), (+1.0309729863779351, +0.83734710620491115), (+1.9580501050606887, +0.94354330866613001), (-0.11102230246251565E-15, +0.19428902930940239E-15), (-0.33306690738754696E-15, -0.47184478546569153E-15), (+0.22204460492503131E-15, +0.16653345369377348E-15), (+0.22204460492503131E-15, -0.11102230246251565E-15), (-0.11102230246251565E-15, +0.55511151231257827E-15), (+0.0000000000000000, -0.24980018054066022E-15), (-0.22204460492503131E-15, -0.11102230246251565E-15), (+0.22204460492503131E-15, +0.0000000000000000), (+0.22204460492503131E-15, -0.11102230246251565E-15), (-0.55511151231257827E-15, -0.33306690738754696E-15), (+0.11102230246251565E-15, -0.11102230246251565E-15), (+0.77715611723760958E-15, -0.22204460492503131E-15), (+0.22204460492503131E-15, +0.33306690738754696E-15), (+0.33306690738754696E-15, +0.55511151231257827E-16), (+0.0000000000000000, +0.44408920985006262E-15), (+0.55511151231257827E-15, +0.55511151231257827E-16), (+0.33306690738754696E-15, +0.44408920985006262E-15), (+0.44408920985006262E-15, +0.11102230246251565E-15), (+0.22204460492503131E-15, +0.44408920985006262E-15), (+0.44408920985006262E-15, +0.55511151231257827E-15), (+0.22204460492503131E-15, +0.69388939039072284E-15), (+0.22204460492503131E-15, +0.44408920985006262E-15), (+0.22204460492503131E-15, +0.33306690738754696E-15), (+0.44408920985006262E-15, -0.11102230246251565E-15), (+0.33306690738754696E-15, +0.49960036108132044E-15), (-0.11102230246251565E-15, -0.22204460492503131E-15), (+0.33306690738754696E-15, +0.44408920985006262E-15), (+0.77715611723760958E-15, +0.44408920985006262E-15), (+0.0000000000000000, +0.77715611723760958E-15), (+0.66613381477509392E-15, +0.47184478546569153E-15)
130reltol = sqrt(epsilon(1._TKC))
131reltol
132+0.14901161193847656E-7
133isClose(data, atad(1:size(data)), reltol = reltol)
134T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
135call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
136
137lenData = getUnifRand(5, 100)
138lenData
139+39
140data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
141data
142(+1.16646388737248624335484801789893124, +0.974970510240594991961156879794949744), (+1.95343178917890520746609175057550121, +0.320099794864221323994967042348425399E-1), (+1.69690604123101411848025398196390391, +0.937414431592179866028479053294071318), (+1.99650412977867277448978393251573288, +0.849311705739757931819716522903369476), (+1.82569749828523247841482557615441935, +0.324629780864219492248590218575758868), (+1.28725879697611591421298684183380458, +0.302287960035091452198387649227716662), (+1.75090612081178401249708474145857330, +0.117343802836961813636492363764738508), (+1.31461122612928722390695064158203535, +0.782999486705337535397218164643049257), (+1.16113786192532626997842929313240718, +0.141883833312674005036326829184633021), (+1.49688383839628133272010828683707188, +0.589932591444343517160286333197887319), (+1.22744696632263936807195136931667368, +0.683586788008665520903546941640517730), (+1.38947239957945242008731195941797160, +0.112692452027273306146203325389640116), (+1.49063720025122060321243327165914277, +0.221197885463472806960597526667310145), (+1.95615435680719984978025779836849863, +0.633848428100076044517268565350560906), (+1.26774801580705187645793828219401117, +0.549313030092636100100000660431861714), (+1.16591436734000024280055435404482775, +0.355228939153463474967946369769804321), (+1.04072341556101241452638543679673735, +0.741797688082909276138300977393837671), (+1.49356762037605936471930696701286119, +0.313165667599641728872841913231510704), (+1.91651493705141319798114962585810330, +0.508646234895656149311354375580652850), (+1.96930874171933538741172130296923202, +0.949403171026005147853561123359136697), (+1.50588529661004170659619456360812387, +0.747008472506339030245452308995726650), (+1.80850118654541348159035953593413426, +0.963851669551038401593653206619543822), (+1.56514095219138520385168172905455418, +0.363583710519077102415505585594753887), (+1.69033677204451812162524598217443698, +0.409499175529836897688821497688005107), (+1.09190597843929388019881232886547612, +0.111309441824396053095555751368796628E-1), (+1.97517261672850903162355138197794880, +0.546498067392628689765596210878676545), (+1.21823184498770694613513755008743225, +0.621075223925991713759318681629551559), (+1.34336336270514803526837367104002356, +0.243767157114647702885188855900478769), (+1.56092438949230839523885166372541396, +0.520281260656798001570928553082325366), (+1.41156763984663575380016919375871801, +0.649184670834458741193470573609123384), (+1.36413163361511515946583538925123857, +0.828665173432641917802347054044500954), (+1.08074298267662311756559634414760278, +0.547097274142677090258148319419324288), (+1.33483717044095858531985976693323216, +0.339954058105661657134995202394574742), (+1.80249961093690320208302369570951550, +0.632038158937555759962633761408031627), (+1.87831920188158644143671519800867088, +0.810272463935796460571318314811278200), (+1.54992809932205047881917153277865765, +0.408569444613996262018970190121233211), (+1.31122232452469361038777373689683083, +0.122926833712891647458034896941606897), (+1.71290013338504831868881183585011401, +0.923689617019365678574390965945534398), (+1.01283944244105756418315409515321884, +0.353054047641737599495967172454269119)
143
144atad = getFFTI(getFFTF(data))
145atad
146(+1.16646388737248624335484801789893124, +0.974970510240594991961156879794949840), (+1.95343178917890520746609175057550121, +0.320099794864221323994967042348425881E-1), (+1.69690604123101411848025398196390391, +0.937414431592179866028479053294071511), (+1.99650412977867277448978393251573269, +0.849311705739757931819716522903369668), (+1.82569749828523247841482557615441992, +0.324629780864219492248590218575758675), (+1.28725879697611591421298684183380515, +0.302287960035091452198387649227716229), (+1.75090612081178401249708474145857368, +0.117343802836961813636492363764738183), (+1.31461122612928722390695064158203573, +0.782999486705337535397218164643049353), (+1.16113786192532626997842929313240718, +0.141883833312674005036326829184633117), (+1.49688383839628133272010828683707188, +0.589932591444343517160286333197887511), (+1.22744696632263936807195136931667368, +0.683586788008665520903546941640517730), (+1.38947239957945242008731195941797121, +0.112692452027273306146203325389640188), (+1.49063720025122060321243327165914277, +0.221197885463472806960597526667310434), (+1.95615435680719984978025779836849902, +0.633848428100076044517268565350561002), (+1.26774801580705187645793828219401137, +0.549313030092636100100000660431862003), (+1.16591436734000024280055435404482775, +0.355228939153463474967946369769804513), (+1.04072341556101241452638543679673715, +0.741797688082909276138300977393837671), (+1.49356762037605936471930696701286119, +0.313165667599641728872841913231510849), (+1.91651493705141319798114962585810310, +0.508646234895656149311354375580652754), (+1.96930874171933538741172130296923202, +0.949403171026005147853561123359136601), (+1.50588529661004170659619456360812425, +0.747008472506339030245452308995726747), (+1.80850118654541348159035953593413465, +0.963851669551038401593653206619544111), (+1.56514095219138520385168172905455437, +0.363583710519077102415505585594753743), (+1.69033677204451812162524598217443736, +0.409499175529836897688821497688005107), (+1.09190597843929388019881232886547612, +0.111309441824396053095555751368795243E-1), (+1.97517261672850903162355138197794861, +0.546498067392628689765596210878676448), (+1.21823184498770694613513755008743205, +0.621075223925991713759318681629551367), (+1.34336336270514803526837367104002337, +0.243767157114647702885188855900478480), (+1.56092438949230839523885166372541396, +0.520281260656798001570928553082325366), (+1.41156763984663575380016919375871801, +0.649184670834458741193470573609123480), (+1.36413163361511515946583538925123896, +0.828665173432641917802347054044501050), (+1.08074298267662311756559634414760278, +0.547097274142677090258148319419324481), (+1.33483717044095858531985976693323216, +0.339954058105661657134995202394574790), (+1.80249961093690320208302369570951512, +0.632038158937555759962633761408031820), (+1.87831920188158644143671519800867107, +0.810272463935796460571318314811278103), (+1.54992809932205047881917153277865784, +0.408569444613996262018970190121233067), (+1.31122232452469361038777373689683102, +0.122926833712891647458034896941607259), (+1.71290013338504831868881183585011401, +0.923689617019365678574390965945534783), (+1.01283944244105756418315409515321903, +0.353054047641737599495967172454269167), (-0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (+0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000), (+0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33), (+0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000), (+0.962964972193617926527988971292463659E-34, +0.120370621524202240815998621411557957E-33), (-0.962964972193617926527988971292463659E-34, -0.132407683676622464897598483552713753E-33), (-0.288889491658085377958396691387739098E-33, +0.481482486096808963263994485646231830E-34), (+0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, -0.168518870133883137142398069976181140E-33), (+0.192592994438723585305597794258492732E-33, +0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (+0.577778983316170755916793382775478196E-33, +0.240741243048404481631997242823115915E-33), (+0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33), (+0.192592994438723585305597794258492732E-33, +0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, -0.168518870133883137142398069976181140E-33), (+0.288889491658085377958396691387739098E-33, +0.150463276905252801019998276764447447E-33), (+0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (+0.962964972193617926527988971292463659E-34, +0.337037740267766274284796139952362281E-33), (+0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33), (+0.192592994438723585305597794258492732E-33, -0.240741243048404481631997242823115915E-33), (-0.192592994438723585305597794258492732E-33, +0.144444745829042688979198345693869549E-33), (+0.00000000000000000000000000000000000, +0.144444745829042688979198345693869549E-33)
147reltol = sqrt(epsilon(1._TKC))
148reltol
149+0.138777878078144567552953958511352539E-16
150isClose(data, atad(1:size(data)), reltol = reltol)
151T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
152call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
153
154lenData = getUnifRand(5, 100)
155lenData
156+95
157data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
158data
159+1.17331719, +1.41533494, +1.41310811, +1.18663466, +1.03279328, +1.09230161, +1.73047805, +1.08633375, +1.85503125, +1.36066747, +1.57744050, +1.29524171, +1.01361799, +1.13500667, +1.90005684, +1.48414874, +1.03792703, +1.10961962, +1.51664209, +1.28812289, +1.79831290, +1.23977184, +1.52866602, +1.60426092, +1.24839389, +1.30676389, +1.42640901, +1.23773909, +1.37819052, +1.03416300, +1.75596166, +1.59127879, +1.35601342, +1.28245258, +1.16002452, +1.26518846, +1.87859845, +1.67831540, +1.60003066, +1.90726888, +1.75299859, +1.70251405, +1.86468530, +1.32969594, +1.48064637, +1.94804668, +1.06851172, +1.30628395, +1.90142870, +1.59057617, +1.21458781, +1.38436496, +1.92859316, +1.79400587, +1.90908825, +1.41458654, +1.06758404, +1.69086397, +1.06490993, +1.36109471, +1.65674543, +1.03775883, +1.57823229, +1.91130519, +1.28786731, +1.32749939, +1.39276934, +1.65579820, +1.94697309, +1.29557681, +1.27022147, +1.64630651, +1.73484826, +1.63368917, +1.29160213, +1.26440525, +1.27762043, +1.28946805, +1.50391757, +1.27872396, +1.04775715, +1.52843356, +1.38377905, +1.15981627, +1.63965869, +1.41724610, +1.79760933, +1.20693767, +1.48391175, +1.51274252, +1.56564832, +1.81483030, +1.92394423, +1.89351881, +1.06184125
160
161atad = getFFTI(getFFTF(data))
162atad
163+1.17331731, +1.41533494, +1.41310787, +1.18663466, +1.03279340, +1.09230149, +1.73047781, +1.08633351, +1.85503161, +1.36066759, +1.57744050, +1.29524183, +1.01361823, +1.13500655, +1.90005684, +1.48414850, +1.03792727, +1.10961962, +1.51664197, +1.28812289, +1.79831302, +1.23977184, +1.52866626, +1.60426080, +1.24839401, +1.30676425, +1.42640913, +1.23773909, +1.37819099, +1.03416300, +1.75596178, +1.59127879, +1.35601366, +1.28245258, +1.16002464, +1.26518846, +1.87859857, +1.67831492, +1.60003114, +1.90726852, +1.75299883, +1.70251417, +1.86468554, +1.32969582, +1.48064661, +1.94804621, +1.06851196, +1.30628383, +1.90142870, +1.59057629, +1.21458769, +1.38436472, +1.92859316, +1.79400587, +1.90908825, +1.41458642, +1.06758404, +1.69086397, +1.06490993, +1.36109459, +1.65674555, +1.03775883, +1.57823217, +1.91130495, +1.28786743, +1.32749939, +1.39276934, +1.65579808, +1.94697320, +1.29557669, +1.27022195, +1.64630628, +1.73484838, +1.63368952, +1.29160237, +1.26440525, +1.27762079, +1.28946793, +1.50391769, +1.27872396, +1.04775727, +1.52843356, +1.38377893, +1.15981603, +1.63965881, +1.41724610, +1.79760957, +1.20693767, +1.48391151, +1.51274264, +1.56564820, +1.81482983, +1.92394423, +1.89351892, +1.06184161, +0.00000000, -0.119209290E-6, +0.238418579E-6, +0.596046448E-7, +0.00000000, +0.357627869E-6, +0.476837158E-6, +0.476837158E-6, +0.298023224E-6, +0.596046448E-7, +0.596046448E-7, +0.596046448E-7, +0.00000000, +0.178813934E-6, +0.298023224E-6, +0.417232513E-6, +0.357627869E-6, +0.298023224E-6, +0.119209290E-6, +0.238418579E-6, +0.119209290E-6, +0.298023224E-6, +0.298023224E-6, +0.357627869E-6, +0.357627869E-6, +0.417232513E-6, -0.119209290E-6, +0.476837158E-6, -0.119209290E-6, +0.596046448E-6, -0.298023224E-6, +0.119209290E-6, +0.476837158E-6
164reltol = sqrt(epsilon(1._TKC))
165reltol
166+0.345266977E-3
167isClose(data, atad(1:size(data)), reltol = reltol)
168T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
169call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
170
171lenData = getUnifRand(5, 100)
172lenData
173+78
174data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
175data
176+1.2663637288601099, +1.8988428528945576, +1.4093773892500101, +1.5594343384190175, +1.6031823088925665, +1.4095856524576114, +1.3028746373000537, +1.8094742784080604, +1.4955727220035921, +1.7105905328280753, +1.9973913552383382, +1.2440495879395743, +1.6890528408805301, +1.2245070650177587, +1.3770448392756871, +1.5030799728755317, +1.1207244535889573, +1.7166320309098675, +1.4930334277962343, +1.5648881437822073, +1.2510857058920046, +1.1641410108965342, +1.0431964623527332, +1.7024618456773173, +1.3063794554221753, +1.1563277189611769, +1.6688785976363028, +1.5792560618541585, +1.2377083710294725, +1.6379981649174664, +1.9077850789068540, +1.1609453765924167, +1.4082286650400240, +1.2017310348103902, +1.1794255239248934, +1.7805397593819052, +1.0483895637920191, +1.4635931089054459, +1.3147811754118077, +1.1719277160552932, +1.5376235529549986, +1.5273818884691073, +1.3174941227548986, +1.6957005900009514, +1.3758471169834028, +1.1935302373688610, +1.1752871742941509, +1.9142374158020319, +1.6855617331495818, +1.1872867837973726, +1.8037848736541506, +1.2762897970943252, +1.8570814773106683, +1.0008279490847247, +1.3562541606685559, +1.1245676116025929, +1.7492337210739712, +1.1744472274880118, +1.1577874495493343, +1.6543483470464952, +1.8065648382594395, +1.4377690935394747, +1.0877665007466368, +1.0291394912763496, +1.6489007331944436, +1.9161303091631638, +1.9257766749092915, +1.9164652415330035, +1.6022933216275499, +1.9506843858816174, +1.3280368257622990, +1.5565790724701978, +1.4612527789645136, +1.7302939611562320, +1.6735081311363011, +1.7871442077405366, +1.7895508034331982, +1.7559253234208563
177
178atad = getFFTI(getFFTF(data))
179atad
180+1.2663637288601099, +1.8988428528945578, +1.4093773892500101, +1.5594343384190177, +1.6031823088925661, +1.4095856524576116, +1.3028746373000533, +1.8094742784080606, +1.4955727220035921, +1.7105905328280755, +1.9973913552383384, +1.2440495879395752, +1.6890528408805299, +1.2245070650177583, +1.3770448392756869, +1.5030799728755322, +1.1207244535889576, +1.7166320309098679, +1.4930334277962340, +1.5648881437822075, +1.2510857058920046, +1.1641410108965342, +1.0431964623527330, +1.7024618456773175, +1.3063794554221753, +1.1563277189611771, +1.6688785976363021, +1.5792560618541587, +1.2377083710294725, +1.6379981649174664, +1.9077850789068533, +1.1609453765924171, +1.4082286650400242, +1.2017310348103902, +1.1794255239248934, +1.7805397593819050, +1.0483895637920191, +1.4635931089054459, +1.3147811754118082, +1.1719277160552934, +1.5376235529549991, +1.5273818884691073, +1.3174941227548986, +1.6957005900009519, +1.3758471169834028, +1.1935302373688610, +1.1752871742941515, +1.9142374158020317, +1.6855617331495818, +1.1872867837973726, +1.8037848736541511, +1.2762897970943246, +1.8570814773106679, +1.0008279490847243, +1.3562541606685563, +1.1245676116025922, +1.7492337210739710, +1.1744472274880116, +1.1577874495493345, +1.6543483470464939, +1.8065648382594395, +1.4377690935394738, +1.0877665007466371, +1.0291394912763487, +1.6489007331944434, +1.9161303091631638, +1.9257766749092915, +1.9164652415330030, +1.6022933216275499, +1.9506843858816170, +1.3280368257622994, +1.5565790724701973, +1.4612527789645133, +1.7302939611562322, +1.6735081311363011, +1.7871442077405368, +1.7895508034331984, +1.7559253234208558, +0.66613381477509392E-15, -0.77715611723760958E-15, +0.0000000000000000, -0.22204460492503131E-15, +0.44408920985006262E-15, -0.66613381477509392E-15, +0.55511151231257827E-15, -0.11102230246251565E-15, +0.55511151231257827E-15, -0.77715611723760958E-15, -0.11102230246251565E-15, -0.66613381477509392E-15, +0.55511151231257827E-15, -0.55511151231257827E-15, +0.33306690738754696E-15, +0.0000000000000000, +0.44408920985006262E-15, -0.77715611723760958E-15, +0.0000000000000000, +0.0000000000000000, -0.11102230246251565E-15, -0.22204460492503131E-15, +0.11102230246251565E-15, +0.11102230246251565E-15, +0.11102230246251565E-15, +0.11102230246251565E-15, -0.55511151231257827E-15, -0.33306690738754696E-15, -0.11102230246251565E-15, -0.44408920985006262E-15, -0.11102230246251565E-15, +0.11102230246251565E-15, -0.33306690738754696E-15, -0.22204460492503131E-15, -0.33306690738754696E-15, +0.11102230246251565E-15, +0.0000000000000000, +0.11102230246251565E-15, +0.11102230246251565E-15, +0.77715611723760958E-15, -0.22204460492503131E-15, +0.66613381477509392E-15, -0.44408920985006262E-15, +0.22204460492503131E-15, +0.33306690738754696E-15, +0.55511151231257827E-15, -0.55511151231257827E-15, +0.88817841970012523E-15, +0.0000000000000000, +0.88817841970012523E-15
181reltol = sqrt(epsilon(1._TKC))
182reltol
183+0.14901161193847656E-7
184isClose(data, atad(1:size(data)), reltol = reltol)
185T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
186call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
187
188lenData = getUnifRand(5, 100)
189lenData
190+40
191data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
192data
193+1.20641030803227722055156975206636842, +1.67862491081751151965431199648785953, +1.57932381952384449736937235297513751, +1.85752192229626723398950061692849385, +1.26542764358691018805855695180654986, +1.48035498256541045997261159192836981, +1.27926686932915789219766156904207585, +1.23752428926492559251465882728402606, +1.84280612652489395275284464425411325, +1.30743695740943253921168733580054242, +1.42362826956050519255616472227812111, +1.81443379971227968571743311587906951, +1.16655581695373675213970220713418011, +1.95319751245111719490961431135977181, +1.11741837713321257113099326195883838, +1.20142947197642611087824093887073649, +1.56242469773950358133778025389136471, +1.38537373219886112856409940394989287, +1.35816358157596465047003550312348323, +1.41258307577778796678168217683115546, +1.27564947158729666100699358244299338, +1.67089826149987314356218765231340572, +1.21901787815002628631681102438552674, +1.44852483680701814192606907038177947, +1.39159828318471977198050477601154643, +1.83768299811963289579563788652203964, +1.55374049449164080125331924874774747, +1.28007136768849710369118755641443635, +1.19838868201464908800828940798245305, +1.45376777914791306916577520766523773, +1.09781161258970188662335028995454841, +1.46870638622860066738167732416204723, +1.71579051979564985933998826032602193, +1.06389608866539964823015759077811612, +1.04069882529346262704435970460759247, +1.83851777985833337545777924423724891, +1.79562505512201587341692552494656431, +1.40814753465873140242414849085788178, +1.74004667162935929697561748421980557, +1.07189182664348844837962437990236149
194
195atad = getFFTI(getFFTF(data))
196atad
197+1.20641030803227722055156975206636842, +1.67862491081751151965431199648785953, +1.57932381952384449736937235297513751, +1.85752192229626723398950061692849366, +1.26542764358691018805855695180654986, +1.48035498256541045997261159192837000, +1.27926686932915789219766156904207604, +1.23752428926492559251465882728402587, +1.84280612652489395275284464425411364, +1.30743695740943253921168733580054242, +1.42362826956050519255616472227812130, +1.81443379971227968571743311587906932, +1.16655581695373675213970220713418030, +1.95319751245111719490961431135977181, +1.11741837713321257113099326195883858, +1.20142947197642611087824093887073649, +1.56242469773950358133778025389136471, +1.38537373219886112856409940394989287, +1.35816358157596465047003550312348323, +1.41258307577778796678168217683115527, +1.27564947158729666100699358244299338, +1.67089826149987314356218765231340572, +1.21901787815002628631681102438552655, +1.44852483680701814192606907038177966, +1.39159828318471977198050477601154623, +1.83768299811963289579563788652203945, +1.55374049449164080125331924874774747, +1.28007136768849710369118755641443616, +1.19838868201464908800828940798245267, +1.45376777914791306916577520766523793, +1.09781161258970188662335028995454860, +1.46870638622860066738167732416204743, +1.71579051979564985933998826032602212, +1.06389608866539964823015759077811612, +1.04069882529346262704435970460759286, +1.83851777985833337545777924423724871, +1.79562505512201587341692552494656412, +1.40814753465873140242414849085788197, +1.74004667162935929697561748421980557, +1.07189182664348844837962437990236188, -0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, +0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, +0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, -0.577778983316170755916793382775478196E-33, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33
198reltol = sqrt(epsilon(1._TKC))
199reltol
200+0.138777878078144567552953958511352539E-16
201isClose(data, atad(1:size(data)), reltol = reltol)
202T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
203call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
204
205lenData = getUnifRand(5, 100)
206lenData
207+42
208data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
209data
210(+1.61830950, +0.273194015), (+1.41028214, +0.347704053), (+1.89866972, +0.347977519), (+1.52812696, +0.674698412), (+1.82268023, +0.266854882), (+1.69985378, +0.176691592), (+1.48564148, +0.719816089E-1), (+1.85491276, +0.954727352), (+1.47669911, +0.436431289), (+1.10215330, +0.169724166), (+1.98684216, +0.862787545), (+1.82913852, +0.871861577), (+1.63177156, +0.542607129), (+1.03260934, +0.259460211E-1), (+1.12894189, +0.484090745), (+1.85210097, +0.296944976), (+1.35087132, +0.328753352), (+1.87220323, +0.726639092), (+1.17416966, +0.912676454), (+1.89515018, +0.933136940E-1), (+1.70387781, +0.273192525), (+1.38373256, +0.111490667), (+1.73297334, +0.954714656), (+1.01262236, +0.563474298E-1), (+1.58204889, +0.355260968), (+1.54367089, +0.483247101), (+1.63842201, +0.327509701), (+1.48958087, +0.270738006E-1), (+1.90039682, +0.927456081), (+1.60005808, +0.693285942), (+1.75181508, +0.313015580E-1), (+1.79393435, +0.581256449), (+1.36824036, +0.613303721), (+1.42287731, +0.507982016), (+1.43453383, +0.709804952), (+1.71448255, +0.441704690), (+1.03861952, +0.315358579), (+1.16846764, +0.548677385), (+1.75034738, +0.206942618), (+1.50078416, +0.326577783), (+1.02948630, +0.118517280E-1), (+1.48934269, +0.563420653)
211
212atad = getFFTI(getFFTF(data))
213atad
214(+1.61830950, +0.273193926), (+1.41028202, +0.347704142), (+1.89866924, +0.347977340), (+1.52812648, +0.674698114), (+1.82268023, +0.266854823), (+1.69985378, +0.176691607), (+1.48564136, +0.719815865E-1), (+1.85491252, +0.954727054), (+1.47669911, +0.436431348), (+1.10215330, +0.169724166), (+1.98684204, +0.862787366), (+1.82913828, +0.871861577), (+1.63177156, +0.542607367), (+1.03260922, +0.259461552E-1), (+1.12894177, +0.484090835), (+1.85210085, +0.296945214), (+1.35087132, +0.328753263), (+1.87220299, +0.726638913), (+1.17416966, +0.912676334), (+1.89515007, +0.933134556E-1), (+1.70387769, +0.273192555), (+1.38373256, +0.111490637), (+1.73297322, +0.954714656), (+1.01262248, +0.563473850E-1), (+1.58204877, +0.355260909), (+1.54367077, +0.483247042), (+1.63842177, +0.327509701), (+1.48958039, +0.270737410E-1), (+1.90039623, +0.927456021), (+1.60005760, +0.693285942), (+1.75181460, +0.313016921E-1), (+1.79393387, +0.581256270), (+1.36824036, +0.613303781), (+1.42287719, +0.507981896), (+1.43453383, +0.709804833), (+1.71448255, +0.441704512), (+1.03861928, +0.315358639), (+1.16846764, +0.548677385), (+1.75034750, +0.206942588), (+1.50078440, +0.326577783), (+1.02948642, +0.118517280E-1), (+1.48934269, +0.563420534), (+0.238418579E-6, +0.00000000), (+0.178813934E-6, -0.119209290E-6), (+0.596046448E-7, -0.298023224E-6), (+0.178813934E-6, -0.134110451E-6), (+0.00000000, -0.298023224E-7), (+0.178813934E-6, -0.104308128E-6), (-0.596046448E-7, +0.298023224E-7), (+0.119209290E-6, +0.119209290E-6), (+0.119209290E-6, +0.119209290E-6), (+0.119209290E-6, +0.178813934E-6), (-0.238418579E-6, -0.894069672E-7), (+0.238418579E-6, -0.298023224E-7), (+0.119209290E-6, -0.298023224E-7), (+0.119209290E-6, +0.447034836E-7), (+0.119209290E-6, +0.00000000), (+0.357627869E-6, -0.596046448E-7), (+0.596046448E-7, +0.178813934E-6), (+0.596046448E-7, +0.119209290E-6), (+0.357627869E-6, -0.298023224E-7), (+0.178813934E-6, +0.00000000), (+0.00000000, +0.447034836E-7), (+0.596046448E-7, +0.298023224E-7)
215reltol = sqrt(epsilon(1._TKC))
216reltol
217+0.345266977E-3
218isClose(data, atad(1:size(data)), reltol = reltol)
219T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
220call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
221
222lenData = getUnifRand(5, 100)
223lenData
224+54
225data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
226data
227(+1.5012647866750415, +0.52944550205079732), (+1.1040336147126366, +0.85540530192894271), (+1.6665735330498692, +0.42803774173805686), (+1.4947566526985425, +0.76754195650443924), (+1.7369748083882746, +0.41562093072864292), (+1.6162761886027583, +0.69661114979600902), (+1.2537468913931287, +0.21989753827371006E-1), (+1.7273028014650196, +0.41340870180773659), (+1.9067131609314556, +0.87024526928460288), (+1.6303709662116312, +0.58689195132273708), (+1.2065178677765023, +0.48392533139358218), (+1.7275798177698705, +0.87246688048148568), (+1.7370506020759935, +0.83982475725161432), (+1.1357226331136543, +0.53816403360388509), (+1.8401447891302172, +0.65329836933351926), (+1.6746807856226835, +0.62211767852662847), (+1.9131618358351723, +0.86660659823672470), (+1.6564996932121541, +0.31762966605691778), (+1.6552690315961329, +0.70256259065621041), (+1.8968970237684193, +0.70347047857909373), (+1.3231079743684262, +0.50447491333081906), (+1.7162824957940521, +0.95887015004988918), (+1.1627539940632814, +0.25096925840962192), (+1.8032591587651920, +0.12792620827139722E-1), (+1.7351371306504271, +0.50561453421036351E-2), (+1.8445226717487180, +0.22069000868319333), (+1.1666859299755807, +0.75477608614345293), (+1.3776323444268690, +0.75632369249876863), (+1.3967723274336490, +0.41030998370654270), (+1.3796333508660248, +0.12670535419239581), (+1.1200537433417201, +0.67033197730829641), (+1.8740817954469595, +0.92012392809222632), (+1.2005132703132246, +0.88625981578196011), (+1.3477122677695310, +0.15649978351607219), (+1.4662134516136263, +0.36341147529995510E-1), (+1.2631434244489235, +0.33603469704651612), (+1.1898636426928786, +0.41779559449408776), (+1.0846665457250939, +0.15890977503044212), (+1.3056101926529329, +0.52633342444425857E-2), (+1.7602921253724075, +0.50732868459717662), (+1.6682562949340243, +0.77499808246180435), (+1.8050221670616522, +0.99532011608232562), (+1.9314681222519992, +0.39112038807321725), (+1.5384114964234228, +0.27815316906257426), (+1.3908505110146669, +0.50578230781256350), (+1.0695660888491623, +0.61117444677769639), (+1.4898287984964389, +0.43365665634280015), (+1.5902275357399611, +0.77430475225905104), (+1.8115827641431590, +0.39617331393873978), (+1.0656093487400129, +0.67945646360532252), (+1.7810919993231029, +0.73703681737076954), (+1.5526091303894987, +0.95773924287055401), (+1.0260578488887027, +0.41269166055645989), (+1.0243952154557423, +0.18898364637488385)
228
229atad = getFFTI(getFFTF(data))
230atad
231(+1.5012647866750413, +0.52944550205079732), (+1.1040336147126368, +0.85540530192894271), (+1.6665735330498692, +0.42803774173805720), (+1.4947566526985423, +0.76754195650443946), (+1.7369748083882743, +0.41562093072864292), (+1.6162761886027581, +0.69661114979600913), (+1.2537468913931284, +0.21989753827371221E-1), (+1.7273028014650194, +0.41340870180773681), (+1.9067131609314552, +0.87024526928460277), (+1.6303709662116312, +0.58689195132273730), (+1.2065178677765021, +0.48392533139358251), (+1.7275798177698700, +0.87246688048148591), (+1.7370506020759930, +0.83982475725161454), (+1.1357226331136543, +0.53816403360388532), (+1.8401447891302167, +0.65329836933351948), (+1.6746807856226833, +0.62211767852662903), (+1.9131618358351719, +0.86660659823672481), (+1.6564996932121541, +0.31762966605691784), (+1.6552690315961329, +0.70256259065621030), (+1.8968970237684188, +0.70347047857909373), (+1.3231079743684258, +0.50447491333081906), (+1.7162824957940517, +0.95887015004988918), (+1.1627539940632814, +0.25096925840962181), (+1.8032591587651918, +0.12792620827139584E-1), (+1.7351371306504271, +0.50561453421036351E-2), (+1.8445226717487184, +0.22069000868319338), (+1.1666859299755812, +0.75477608614345282), (+1.3776323444268690, +0.75632369249876819), (+1.3967723274336490, +0.41030998370654248), (+1.3796333508660248, +0.12670535419239573), (+1.1200537433417206, +0.67033197730829608), (+1.8740817954469593, +0.92012392809222576), (+1.2005132703132244, +0.88625981578196011), (+1.3477122677695312, +0.15649978351607197), (+1.4662134516136263, +0.36341147529995704E-1), (+1.2631434244489237, +0.33603469704651601), (+1.1898636426928781, +0.41779559449408765), (+1.0846665457250937, +0.15890977503044190), (+1.3056101926529327, +0.52633342444426759E-2), (+1.7602921253724075, +0.50732868459717650), (+1.6682562949340238, +0.77499808246180413), (+1.8050221670616522, +0.99532011608232529), (+1.9314681222519989, +0.39112038807321703), (+1.5384114964234223, +0.27815316906257403), (+1.3908505110146665, +0.50578230781256328), (+1.0695660888491618, +0.61117444677769606), (+1.4898287984964389, +0.43365665634280015), (+1.5902275357399609, +0.77430475225905038), (+1.8115827641431586, +0.39617331393873984), (+1.0656093487400127, +0.67945646360532241), (+1.7810919993231034, +0.73703681737076909), (+1.5526091303894987, +0.95773924287055334), (+1.0260578488887022, +0.41269166055645989), (+1.0243952154557419, +0.18898364637488385), (+0.33306690738754696E-15, +0.19428902930940239E-15), (+0.11102230246251565E-15, -0.13877787807814457E-15), (+0.22204460492503131E-15, +0.22204460492503131E-15), (+0.77715611723760958E-15, +0.55511151231257827E-16), (+0.55511151231257827E-15, +0.33306690738754696E-15), (+0.55511151231257827E-15, +0.33306690738754696E-15), (+0.11102230246251565E-15, +0.27755575615628914E-16), (+0.55511151231257827E-15, -0.27755575615628914E-16), (+0.33306690738754696E-15, +0.66613381477509392E-15), (+0.77715611723760958E-15, +0.66613381477509392E-15)
232reltol = sqrt(epsilon(1._TKC))
233reltol
234+0.14901161193847656E-7
235isClose(data, atad(1:size(data)), reltol = reltol)
236T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
237call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
238
239lenData = getUnifRand(5, 100)
240lenData
241+17
242data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
243data
244(+1.03969365065779263405792894916662409, +0.628434505000034844830536211537844184), (+1.38087309505538061673795076246597043, +0.190169206147799463740178165558201252), (+1.40303437226515130647612654932887174, +0.184321352337152570909756881000217269), (+1.98434757329587865839041147296432833, +0.684167768872683598374650200488415231), (+1.54805859814940492738767864455514296, +0.213667994872953057491264829972179975E-1), (+1.90707337481871715557243504794821727, +0.506010383125268449383833952222751784), (+1.01558386371970951060023096064291640, +0.281686747818573437909945535802516409), (+1.41008009741069114620752832050286971, +0.371471998213122125028878677281785540), (+1.26030160768999539341316131543172662, +0.505490211439782023776673144332651089), (+1.86700336232621462548552214989826341, +0.509691948525862261342632550033709896), (+1.88218705188082355111614992445827786, +0.643616288498093451262891527100860197), (+1.08830521484734415508102037805169127, +0.782386340298468584865417404415459879), (+1.10245468394616254695300961593857369, +0.484546232244351127911781614524106791), (+1.51634695987217586850443037378730553, +0.240547093331173091316555711935751566), (+1.90791414977119020915445834675649419, +0.198653433957379273155532107332244083), (+1.89212502170551255179720656926873113, +0.722249621299223174299472452997516909), (+1.92458199604683080154579017927865118, +0.975578417588601869482328414325256107)
245
246atad = getFFTI(getFFTF(data))
247atad
248(+1.03969365065779263405792894916662409, +0.628434505000034844830536211537844184), (+1.38087309505538061673795076246597023, +0.190169206147799463740178165558201300), (+1.40303437226515130647612654932887213, +0.184321352337152570909756881000217173), (+1.98434757329587865839041147296432852, +0.684167768872683598374650200488415424), (+1.54805859814940492738767864455514315, +0.213667994872953057491264829972180697E-1), (+1.90707337481871715557243504794821727, +0.506010383125268449383833952222751688), (+1.01558386371970951060023096064291640, +0.281686747818573437909945535802516313), (+1.41008009741069114620752832050286952, +0.371471998213122125028878677281785347), (+1.26030160768999539341316131543172643, +0.505490211439782023776673144332651089), (+1.86700336232621462548552214989826302, +0.509691948525862261342632550033709704), (+1.88218705188082355111614992445827786, +0.643616288498093451262891527100860390), (+1.08830521484734415508102037805169107, +0.782386340298468584865417404415459687), (+1.10245468394616254695300961593857369, +0.484546232244351127911781614524106791), (+1.51634695987217586850443037378730534, +0.240547093331173091316555711935751710), (+1.90791414977119020915445834675649439, +0.198653433957379273155532107332244179), (+1.89212502170551255179720656926873074, +0.722249621299223174299472452997516909), (+1.92458199604683080154579017927865118, +0.975578417588601869482328414325256107), (+0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, +0.120370621524202240815998621411557957E-34), (-0.962964972193617926527988971292463659E-34, -0.144444745829042688979198345693869549E-33), (+0.00000000000000000000000000000000000, -0.120370621524202240815998621411557957E-33), (+0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000), (+0.00000000000000000000000000000000000, +0.722223729145213444895991728469347744E-34), (+0.192592994438723585305597794258492732E-33, +0.216667118743564033468797518540804323E-33), (+0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34), (+0.288889491658085377958396691387739098E-33, +0.144444745829042688979198345693869549E-33), (+0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (+0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, +0.120370621524202240815998621411557957E-33), (+0.192592994438723585305597794258492732E-33, -0.601853107621011204079993107057789787E-34), (+0.192592994438723585305597794258492732E-33, -0.180555932286303361223997932117336936E-33), (+0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34)
249reltol = sqrt(epsilon(1._TKC))
250reltol
251+0.138777878078144567552953958511352539E-16
252isClose(data, atad(1:size(data)), reltol = reltol)
253T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
254call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
255
256lenData = getUnifRand(5, 100)
257lenData
258+81
259data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
260data
261+1.56595671, +1.89632392, +1.62565768, +1.29200113, +1.90174747, +1.15090060, +1.10280621, +1.26124811, +1.98970437, +1.36007798, +1.01683617, +1.52543747, +1.43390822, +1.93000019, +1.45138192, +1.65548110, +1.08387423, +1.65438747, +1.52992630, +1.71470261, +1.74381936, +1.66116595, +1.98939240, +1.75432241, +1.75170970, +1.10863364, +1.35319388, +1.74506187, +1.83818269, +1.70662212, +1.52857542, +1.02610147, +1.53784132, +1.16233754, +1.98530149, +1.35975718, +1.52352023, +1.93419909, +1.25962996, +1.68891287, +1.46107817, +1.72919917, +1.26907682, +1.06243050, +1.09344459, +1.61009812, +1.05314970, +1.99286127, +1.91350341, +1.19901323, +1.23726356, +1.17744458, +1.16417432, +1.70749533, +1.08617485, +1.64379072, +1.00385714, +1.43455267, +1.89836848, +1.11240625, +1.68508315, +1.86521506, +1.50563085, +1.27800739, +1.30224299, +1.52128696, +1.61808145, +1.08527565, +1.06436479, +1.65360498, +1.88018250, +1.72869992, +1.99504054, +1.84015393, +1.56324446, +1.62735534, +1.89145267, +1.96112227, +1.37507975, +1.29697239, +1.72433090
262
263atad = getFFTI(getFFTF(data))
264atad
265+1.56595683, +1.89632380, +1.62565756, +1.29200125, +1.90174735, +1.15090036, +1.10280597, +1.26124799, +1.98970449, +1.36007786, +1.01683617, +1.52543759, +1.43390799, +1.93000007, +1.45138204, +1.65548110, +1.08387399, +1.65438747, +1.52992618, +1.71470249, +1.74381912, +1.66116595, +1.98939228, +1.75432241, +1.75170958, +1.10863376, +1.35319376, +1.74506187, +1.83818269, +1.70662212, +1.52857566, +1.02610159, +1.53784132, +1.16233754, +1.98530149, +1.35975695, +1.52352059, +1.93419886, +1.25963032, +1.68891239, +1.46107817, +1.72919893, +1.26907682, +1.06243026, +1.09344459, +1.61009789, +1.05314994, +1.99286103, +1.91350329, +1.19901299, +1.23726344, +1.17744446, +1.16417432, +1.70749497, +1.08617473, +1.64379072, +1.00385690, +1.43455219, +1.89836812, +1.11240602, +1.68508291, +1.86521459, +1.50563049, +1.27800751, +1.30224299, +1.52128685, +1.61808133, +1.08527565, +1.06436503, +1.65360498, +1.88018262, +1.72869980, +1.99504054, +1.84015369, +1.56324434, +1.62735534, +1.89145255, +1.96112227, +1.37507999, +1.29697275, +1.72433066, -0.119209290E-6, +0.357627869E-6, +0.00000000, +0.357627869E-6, +0.298023224E-6, +0.536441803E-6, +0.476837158E-6, +0.238418579E-6, -0.178813934E-6, +0.417232513E-6, -0.596046448E-7, +0.596046448E-7, -0.178813934E-6, +0.178813934E-6, +0.298023224E-6, +0.00000000, +0.178813934E-6, +0.238418579E-6, +0.238418579E-6, +0.119209290E-6, +0.298023224E-6, +0.119209290E-6, +0.417232513E-6, +0.119209290E-6, -0.119209290E-6, +0.298023224E-6, +0.119209290E-6, -0.596046448E-7, +0.00000000, +0.596046448E-7, +0.417232513E-6, +0.238418579E-6, +0.119209290E-6, +0.476837158E-6, +0.417232513E-6, +0.298023224E-6, +0.536441803E-6, +0.238418579E-6, +0.655651093E-6, +0.357627869E-6, -0.596046448E-7, +0.417232513E-6, +0.298023224E-6, +0.238418579E-6, +0.596046448E-7, +0.596046448E-7, +0.119209290E-6
266reltol = sqrt(epsilon(1._TKC))
267reltol
268+0.345266977E-3
269isClose(data, atad(1:size(data)), reltol = reltol)
270T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
271call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
272
273lenData = getUnifRand(5, 100)
274lenData
275+72
276data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
277data
278+1.8830104654534510, +1.7952980660436710, +1.3695796121769912, +1.7497076197869954, +1.5454609297179225, +1.9692279869200735, +1.9977330685782622, +1.8916277122023626, +1.0492735085342288, +1.0215533693767951, +1.6395523560754413, +1.1470270289155504, +1.6778126917502034, +1.4063923106534220, +1.4202060640101706, +1.8907775585228404, +1.5447050189589260, +1.0864170121263714, +1.8975659374018838, +1.3123116830515429, +1.6963434381504929, +1.0049937877257207, +1.7877994196095590, +1.4640236856044715, +1.0741211121682788, +1.1246176965143078, +1.4437919366851710, +1.8595122717426165, +1.3847140205025124, +1.8943643407340123, +1.1548903054558495, +1.9425138759721798, +1.9300602552562884, +1.8292406888258306, +1.8003808005117139, +1.7903965416596344, +1.4139389246446532, +1.8627372255176571, +1.7398375095860821, +1.8398477720158477, +1.0244611553788658, +1.2568583405754628, +1.9890477544601513, +1.0044722762896643, +1.3900885985933873, +1.3170877396346010, +1.0399374545668603, +1.9165269110873453, +1.5711572769433144, +1.4328583441241964, +1.4446427285041699, +1.1324006089960625, +1.9800660116582645, +1.5953156442021386, +1.6489784394430451, +1.7125916765954963, +1.0721614782719093, +1.9012608809823819, +1.6078443285712247, +1.5631057592454867, +1.6133113313363296, +1.7165561614021474, +1.2510567599619407, +1.1660898024891173, +1.1990246209722457, +1.6330429084228413, +1.8033146366524975, +1.3298584093671399, +1.6761576775902509, +1.8035861542683445, +1.3503674318990362, +1.9963105112017230
279
280atad = getFFTI(getFFTF(data))
281atad
282+1.8830104654534510, +1.7952980660436710, +1.3695796121769912, +1.7497076197869961, +1.5454609297179218, +1.9692279869200735, +1.9977330685782619, +1.8916277122023628, +1.0492735085342288, +1.0215533693767955, +1.6395523560754413, +1.1470270289155509, +1.6778126917502032, +1.4063923106534220, +1.4202060640101704, +1.8907775585228408, +1.5447050189589255, +1.0864170121263721, +1.8975659374018838, +1.3123116830515433, +1.6963434381504920, +1.0049937877257207, +1.7877994196095583, +1.4640236856044717, +1.0741211121682781, +1.1246176965143087, +1.4437919366851704, +1.8595122717426169, +1.3847140205025117, +1.8943643407340125, +1.1548903054558490, +1.9425138759721801, +1.9300602552562887, +1.8292406888258308, +1.8003808005117139, +1.7903965416596346, +1.4139389246446534, +1.8627372255176573, +1.7398375095860821, +1.8398477720158475, +1.0244611553788658, +1.2568583405754636, +1.9890477544601515, +1.0044722762896638, +1.3900885985933868, +1.3170877396346010, +1.0399374545668603, +1.9165269110873449, +1.5711572769433140, +1.4328583441241960, +1.4446427285041699, +1.1324006089960621, +1.9800660116582640, +1.5953156442021375, +1.6489784394430451, +1.7125916765954954, +1.0721614782719091, +1.9012608809823814, +1.6078443285712249, +1.5631057592454860, +1.6133113313363296, +1.7165561614021470, +1.2510567599619402, +1.1660898024891166, +1.1990246209722457, +1.6330429084228413, +1.8033146366524977, +1.3298584093671397, +1.6761576775902511, +1.8035861542683438, +1.3503674318990364, +1.9963105112017219, -0.33306690738754696E-15, -0.22204460492503131E-15, +0.0000000000000000, -0.12212453270876722E-14, +0.33306690738754696E-15, -0.55511151231257827E-15, +0.22204460492503131E-15, -0.66613381477509392E-15, +0.55511151231257827E-15, -0.66613381477509392E-15, +0.33306690738754696E-15, -0.44408920985006262E-15, +0.11102230246251565E-15, +0.0000000000000000, +0.55511151231257827E-15, -0.44408920985006262E-15, +0.44408920985006262E-15, -0.55511151231257827E-15, +0.88817841970012523E-15, -0.44408920985006262E-15, +0.44408920985006262E-15, -0.33306690738754696E-15, +0.55511151231257827E-15, -0.33306690738754696E-15, +0.0000000000000000, -0.22204460492503131E-15, +0.33306690738754696E-15, +0.22204460492503131E-15, -0.22204460492503131E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, -0.11102230246251565E-15, -0.11102230246251565E-15, -0.33306690738754696E-15, +0.0000000000000000, +0.11102230246251565E-15, +0.11102230246251565E-15, -0.11102230246251565E-15, -0.11102230246251565E-15, +0.11102230246251565E-15, +0.11102230246251565E-15, +0.66613381477509392E-15, +0.22204460492503131E-15, +0.33306690738754696E-15, -0.11102230246251565E-15, +0.44408920985006262E-15, +0.11102230246251565E-15, +0.77715611723760958E-15, +0.0000000000000000, +0.22204460492503131E-15, +0.33306690738754696E-15, +0.66613381477509392E-15, -0.44408920985006262E-15, +0.55511151231257827E-15, -0.11102230246251565E-15, +0.13322676295501878E-14
283reltol = sqrt(epsilon(1._TKC))
284reltol
285+0.14901161193847656E-7
286isClose(data, atad(1:size(data)), reltol = reltol)
287T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
288call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
289
290lenData = getUnifRand(5, 100)
291lenData
292+18
293data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
294data
295+1.37877823999963413197666915643343685, +1.62598997135833258372741753224150737, +1.24787999796468760158597583505292753, +1.06033588515379323326541386842201683, +1.74502034185312814642740308716601577, +1.28842282162380448064905182707668270, +1.81478753305567989944152972364525586, +1.45688906258784083647206813495859459, +1.44460983624316981581398310990433339, +1.44980253915233377755304676330149319, +1.77584634263173588798016081590375454, +1.77029147214121121200863089934307921, +1.74645161273266004196485562056199773, +1.55794783786740800324976613569795455, +1.50519707775099636083462856975366844, +1.90766805426982587267010809945974829, +1.40922366634911394020191971725541798, +1.15979309602344245126339088697027933
296
297atad = getFFTI(getFFTF(data))
298atad
299+1.37877823999963413197666915643343685, +1.62598997135833258372741753224150718, +1.24787999796468760158597583505292791, +1.06033588515379323326541386842201664, +1.74502034185312814642740308716601577, +1.28842282162380448064905182707668289, +1.81478753305567989944152972364525625, +1.45688906258784083647206813495859478, +1.44460983624316981581398310990433358, +1.44980253915233377755304676330149319, +1.77584634263173588798016081590375492, +1.77029147214121121200863089934307998, +1.74645161273266004196485562056199811, +1.55794783786740800324976613569795475, +1.50519707775099636083462856975366844, +1.90766805426982587267010809945974906, +1.40922366634911394020191971725541798, +1.15979309602344245126339088697027933, -0.481482486096808963263994485646231830E-33, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34
300reltol = sqrt(epsilon(1._TKC))
301reltol
302+0.138777878078144567552953958511352539E-16
303isClose(data, atad(1:size(data)), reltol = reltol)
304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
305call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
306
307lenData = getUnifRand(5, 100)
308lenData
309+91
310data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
311data
312(+1.72006547, +0.778562546), (+1.70479083, +0.415540159), (+1.16835928, +0.534597516), (+1.73239541, +0.331358850), (+1.72839904, +0.465371192), (+1.08962750, +0.558571815E-1), (+1.46048331, +0.678505599), (+1.28656673, +0.496623814), (+1.44694853, +0.489546537), (+1.63412714, +0.374510884E-1), (+1.09014964, +0.568309426E-1), (+1.88401699, +0.880380034), (+1.61430538, +0.575637221), (+1.20861053, +0.323001325), (+1.80497432, +0.712344050E-1), (+1.20115983, +0.625663638), (+1.67667222, +0.504193783), (+1.32746291, +0.386309266), (+1.95039940, +0.166741610E-1), (+1.07626152, +0.293036103E-1), (+1.59656930, +0.464811146), (+1.25824296, +0.733909070), (+1.36085725, +0.792251289), (+1.26309144, +0.651238441), (+1.92497587, +0.727925360), (+1.41844702, +0.654126406E-1), (+1.66677463, +0.986347198E-1), (+1.64594197, +0.387074351E-1), (+1.46902156, +0.176988304), (+1.49213076, +0.383928180), (+1.28398275, +0.524306893), (+1.37264335, +0.358283937), (+1.98848128, +0.228633106), (+1.80069804, +0.371324420), (+1.15248775, +0.730001152), (+1.54125142, +0.405605197), (+1.98855305, +0.707242846), (+1.89716578, +0.111302853), (+1.17622113, +0.283479273), (+1.26196587, +0.963010967), (+1.90620971, +0.426739454E-1), (+1.76030517, +0.950688779), (+1.07346106, +0.162509143), (+1.06219399, +0.895053983), (+1.06660557, +0.974190474), (+1.32311630, +0.589722395E-2), (+1.04099631, +0.694964707), (+1.82003915, +0.581176519), (+1.34697413, +0.668729484), (+1.12619424, +0.234328747), (+1.56034553, +0.997534454), (+1.51196146, +0.242560923), (+1.55158865, +0.248577833), (+1.96541035, +0.873167634), (+1.09109712, +0.247656047), (+1.13019538, +0.664968252), (+1.25543165, +0.757591009), (+1.27608669, +0.416511357), (+1.76396942, +0.241187692), (+1.16342306, +0.620975375), (+1.30247509, +0.365857005), (+1.72062302, +0.509938776), (+1.59606230, +0.785156906), (+1.85319614, +0.213822484), (+1.70484829, +0.494155526), (+1.98269093, +0.317433834), (+1.11348295, +0.797967374), (+1.78631902, +0.986570477), (+1.64030111, +0.189129651), (+1.51660204, +0.577197611), (+1.27798808, +0.629628837), (+1.50306344, +0.122850358), (+1.92657042, +0.723513663), (+1.05534279, +0.311511695), (+1.69113505, +0.881100655), (+1.23924875, +0.508651137), (+1.13455999, +0.379790664), (+1.13224626, +0.971010447), (+1.21733689, +0.255283177), (+1.92691612, +0.722492337E-1), (+1.56583500, +0.683887780), (+1.04439354, +0.643613040), (+1.90109491, +0.167937100), (+1.75125861, +0.325075388E-1), (+1.15084982, +0.719883263), (+1.92643547, +0.548131406), (+1.01523900, +0.431095958E-1), (+1.49952233, +0.881210506), (+1.10925245, +0.420947194), (+1.24332106, +0.393956900), (+1.84294534, +0.531250715)
313
314atad = getFFTI(getFFTF(data))
315atad
316(+1.72006547, +0.778562605), (+1.70479095, +0.415540218), (+1.16835916, +0.534597516), (+1.73239541, +0.331358701), (+1.72839892, +0.465371132), (+1.08962750, +0.558571219E-1), (+1.46048331, +0.678505421), (+1.28656673, +0.496623784), (+1.44694889, +0.489546716), (+1.63412702, +0.374512672E-1), (+1.09014964, +0.568309128E-1), (+1.88401699, +0.880380213), (+1.61430550, +0.575637341), (+1.20861053, +0.323001266), (+1.80497432, +0.712343454E-1), (+1.20116007, +0.625663638), (+1.67667222, +0.504193962), (+1.32746291, +0.386309236), (+1.95039892, +0.166742429E-1), (+1.07626152, +0.293037482E-1), (+1.59656930, +0.464811176), (+1.25824285, +0.733909011), (+1.36085713, +0.792251170), (+1.26309144, +0.651238620), (+1.92497587, +0.727925658), (+1.41844678, +0.654127300E-1), (+1.66677451, +0.986348242E-1), (+1.64594209, +0.387078226E-1), (+1.46902168, +0.176988482), (+1.49213076, +0.383928299), (+1.28398263, +0.524307013), (+1.37264347, +0.358283758), (+1.98848128, +0.228633016), (+1.80069804, +0.371324241), (+1.15248775, +0.730001032), (+1.54125166, +0.405604899), (+1.98855329, +0.707242548), (+1.89716566, +0.111302614), (+1.17622113, +0.283479273), (+1.26196587, +0.963010728), (+1.90620995, +0.426740348E-1), (+1.76030481, +0.950688720), (+1.07346106, +0.162509084), (+1.06219411, +0.895053983), (+1.06660557, +0.974190474), (+1.32311630, +0.589719415E-2), (+1.04099643, +0.694964767), (+1.82003903, +0.581176400), (+1.34697425, +0.668729544), (+1.12619400, +0.234328613), (+1.56034565, +0.997534275), (+1.51196158, +0.242560863), (+1.55158877, +0.248577803), (+1.96541023, +0.873167515), (+1.09109712, +0.247656032), (+1.13019538, +0.664968073), (+1.25543177, +0.757591009), (+1.27608645, +0.416511297), (+1.76396930, +0.241187647), (+1.16342306, +0.620975256), (+1.30247509, +0.365856916), (+1.72062302, +0.509938836), (+1.59606194, +0.785156727), (+1.85319591, +0.213822424), (+1.70484841, +0.494155586), (+1.98269093, +0.317433834), (+1.11348307, +0.797967196), (+1.78631926, +0.986570358), (+1.64030111, +0.189129606), (+1.51660228, +0.577197492), (+1.27798820, +0.629628897), (+1.50306344, +0.122850388), (+1.92657053, +0.723513663), (+1.05534232, +0.311511725), (+1.69113493, +0.881100655), (+1.23924851, +0.508651316), (+1.13456011, +0.379790664), (+1.13224602, +0.971010566), (+1.21733689, +0.255283386), (+1.92691600, +0.722492635E-1), (+1.56583500, +0.683887780), (+1.04439330, +0.643612862), (+1.90109444, +0.167937130), (+1.75125861, +0.325074680E-1), (+1.15085006, +0.719883084), (+1.92643547, +0.548131585), (+1.01523912, +0.431097150E-1), (+1.49952257, +0.881210387), (+1.10925245, +0.420947224), (+1.24332047, +0.393956989), (+1.84294486, +0.531250715), (+0.238418579E-6, -0.268220901E-6), (+0.238418579E-6, +0.521540642E-7), (-0.596046448E-7, -0.596046448E-7), (+0.119209290E-6, +0.00000000), (+0.119209290E-6, +0.104308128E-6), (+0.178813934E-6, +0.216066837E-6), (-0.596046448E-7, +0.894069672E-7), (+0.178813934E-6, +0.298023224E-6), (+0.238418579E-6, +0.223517418E-6), (+0.238418579E-6, +0.298023224E-6), (+0.119209290E-6, +0.327825546E-6), (+0.596046448E-7, +0.253319740E-6), (+0.119209290E-6, +0.298023224E-6), (+0.417232513E-6, +0.894069672E-7), (-0.238418579E-6, -0.298023224E-7), (-0.178813934E-6, +0.596046448E-7), (+0.596046448E-7, +0.00000000), (+0.119209290E-6, +0.119209290E-6), (+0.596046448E-7, +0.298023224E-7), (+0.119209290E-6, +0.298023224E-7), (+0.596046448E-7, +0.119209290E-6), (+0.357627869E-6, +0.894069672E-7), (+0.596046448E-7, +0.447034836E-7), (+0.417232513E-6, +0.208616257E-6), (+0.119209290E-6, +0.00000000), (+0.536441803E-6, +0.208616257E-6), (+0.298023224E-6, +0.894069672E-7), (+0.596046448E-7, +0.193715096E-6), (+0.238418579E-6, +0.238418579E-6), (+0.476837158E-6, -0.298023224E-7), (+0.119209290E-6, -0.193715096E-6), (+0.119209290E-6, -0.134110451E-6), (+0.417232513E-6, -0.298023224E-7), (+0.238418579E-6, +0.894069672E-7), (+0.178813934E-6, +0.00000000), (-0.596046448E-7, +0.298023224E-7), (+0.596046448E-7, +0.372529030E-7)
317reltol = sqrt(epsilon(1._TKC))
318reltol
319+0.345266977E-3
320isClose(data, atad(1:size(data)), reltol = reltol)
321T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
322call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
323
324lenData = getUnifRand(5, 100)
325lenData
326+51
327data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
328data
329(+1.2524594467188130, +0.14585724109354514), (+1.4374037252851690, +0.58685188605313088), (+1.3355528320201375, +0.62350516374751563), (+1.9168506695225274, +0.14064401520655634), (+1.7389779766327642, +0.84819466893654938), (+1.8928934605623162, +0.82406589221626858), (+1.5044115214147125, +0.22962241771062097E-1), (+1.1705521757118746, +0.80001966933898205), (+1.6078613727126323, +0.88048841151496160), (+1.1337445566611102, +0.45148651619924318E-1), (+1.0448273221178852, +0.44441449825076973), (+1.1664806995320736, +0.82194918624088131), (+1.3451349114837012, +0.41362361719192886), (+1.5648565620702677, +0.56568341063337779), (+1.9207195234395926, +0.49985232049168937), (+1.4901174933905628, +0.50058019136417931), (+1.1089530259768237, +0.64106568405652764E-1), (+1.2184091636126235, +0.34425482018237663), (+1.5216769072336764, +0.86270417551719514), (+1.9529787311862474, +0.66332703767939982), (+1.0756941204333588, +0.15510340497014341), (+1.2484653023293841, +0.26827767972129102), (+1.0871324454499842, +0.66890848755590537), (+1.0294099759128148, +0.78510545161925760), (+1.9141849358699843, +0.97524793781625396), (+1.2626893672774424, +0.16631969358935428), (+1.0329509668172134, +0.34404071280839832), (+1.9202906844752157, +0.97338428436315916), (+1.1803156285831711, +0.73549296275337261), (+1.5795830326198979, +0.22633042458384023), (+1.2632638377981271, +0.19506068364613272), (+1.8514445140147984, +0.62067982479980877), (+1.2807314541413963, +0.36259340364637571), (+1.7125667410823535, +0.62144729198079940), (+1.5456769364758920, +0.59158549843599395), (+1.7950946596389423, +0.33158728760337952), (+1.0012265151211204, +0.40150371115700412), (+1.1477994421011419, +0.31740417731793658), (+1.9731082843275969, +0.46574217555094921), (+1.8482472144993700, +0.82309857746276516), (+1.4235674151246371, +0.78759737807023189), (+1.6618526357541570, +0.26090832059537794), (+1.8913611093173199, +0.97797903902788230), (+1.3730566147184926, +0.35679852414006619E-1), (+1.8141279524953016, +0.18475475571930611), (+1.0516882113173938, +0.77716370360803100), (+1.3110975857534513, +0.61910828455371414), (+1.2717624675356869, +0.31249057909972400), (+1.9131413238114758, +0.81534127986620242), (+1.6322296139342320, +0.98063654464934213), (+1.3076599205865989, +0.22708003352074679E-1)
330
331atad = getFFTI(getFFTF(data))
332atad
333(+1.2524594467188133, +0.14585724109354498), (+1.4374037252851695, +0.58685188605313099), (+1.3355528320201377, +0.62350516374751574), (+1.9168506695225271, +0.14064401520655667), (+1.7389779766327642, +0.84819466893654949), (+1.8928934605623167, +0.82406589221626902), (+1.5044115214147127, +0.22962241771062125E-1), (+1.1705521757118746, +0.80001966933898216), (+1.6078613727126321, +0.88048841151496182), (+1.1337445566611102, +0.45148651619924263E-1), (+1.0448273221178854, +0.44441449825076990), (+1.1664806995320738, +0.82194918624088165), (+1.3451349114837006, +0.41362361719192892), (+1.5648565620702679, +0.56568341063337779), (+1.9207195234395924, +0.49985232049168937), (+1.4901174933905632, +0.50058019136417964), (+1.1089530259768237, +0.64106568405652875E-1), (+1.2184091636126237, +0.34425482018237646), (+1.5216769072336769, +0.86270417551719480), (+1.9529787311862474, +0.66332703767939960), (+1.0756941204333588, +0.15510340497014327), (+1.2484653023293846, +0.26827767972129074), (+1.0871324454499849, +0.66890848755590493), (+1.0294099759128152, +0.78510545161925749), (+1.9141849358699847, +0.97524793781625374), (+1.2626893672774429, +0.16631969358935408), (+1.0329509668172141, +0.34404071280839843), (+1.9202906844752163, +0.97338428436315905), (+1.1803156285831711, +0.73549296275337239), (+1.5795830326198981, +0.22633042458384026), (+1.2632638377981276, +0.19506068364613260), (+1.8514445140147990, +0.62067982479980832), (+1.2807314541413966, +0.36259340364637566), (+1.7125667410823540, +0.62144729198079951), (+1.5456769364758924, +0.59158549843599384), (+1.7950946596389421, +0.33158728760337947), (+1.0012265151211199, +0.40150371115700401), (+1.1477994421011419, +0.31740417731793691), (+1.9731082843275971, +0.46574217555094888), (+1.8482472144993705, +0.82309857746276516), (+1.4235674151246371, +0.78759737807023145), (+1.6618526357541570, +0.26090832059537783), (+1.8913611093173199, +0.97797903902788197), (+1.3730566147184928, +0.35679852414006563E-1), (+1.8141279524953011, +0.18475475571930616), (+1.0516882113173938, +0.77716370360803066), (+1.3110975857534515, +0.61910828455371392), (+1.2717624675356873, +0.31249057909972366), (+1.9131413238114761, +0.81534127986620220), (+1.6322296139342320, +0.98063654464934213), (+1.3076599205865995, +0.22708003352074679E-1), (+0.44408920985006262E-15, +0.0000000000000000), (-0.11102230246251565E-15, -0.83266726846886741E-16), (+0.44408920985006262E-15, -0.16653345369377348E-15), (+0.55511151231257827E-15, +0.11102230246251565E-15), (+0.33306690738754696E-15, +0.27755575615628914E-15), (+0.0000000000000000, +0.16653345369377348E-15), (+0.66613381477509392E-15, -0.19428902930940239E-15), (+0.88817841970012523E-15, +0.33306690738754696E-15), (+0.66613381477509392E-15, +0.38857805861880479E-15), (+0.11102230246251565E-15, -0.38857805861880479E-15), (+0.88817841970012523E-15, +0.19428902930940239E-15), (+0.88817841970012523E-15, +0.43021142204224816E-15), (+0.99920072216264089E-15, +0.55511151231257827E-15)
334reltol = sqrt(epsilon(1._TKC))
335reltol
336+0.14901161193847656E-7
337isClose(data, atad(1:size(data)), reltol = reltol)
338T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
339call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
340
341lenData = getUnifRand(5, 100)
342lenData
343+91
344data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
345data
346(+1.00378802951387754060483476121931993, +0.390216719797553965467657152812867132), (+1.60065619072339924560770920187533166, +0.239978416304424378392287207739313046), (+1.10409779667514415920175948471275113, +0.691588057760348501779338046431607406), (+1.00465300097751097240620468348063565, +0.992281686645513802346141162775876356), (+1.78737399412480063384832252751812905, +0.132081185734028534092268781321119892), (+1.06352613140534004174165700006698197, +0.131841379794372813583961695421651058), (+1.71698647649901488330456068186585818, +0.395741627408697930156898526920123682), (+1.01314419247496180582518426342038232, +0.279576366357942893740166204458502845), (+1.03155791798142532623963910209148343, +0.745348734796266235296260865201589818), (+1.09549432743788865869662653036783530, +0.399605807046137721104404846431419904), (+1.62378941727423367228808835990847322, +0.821432528164352605783445498395388275E-1), (+1.74128778683935808088323285621281247, +0.688916777204421577590618192573415332), (+1.09380582713520992659759118332072828, +0.701649114520252910275048669111055661), (+1.92057897509704371901279841141931097, +0.910298261654505412478028422931048709), (+1.72916701489592289940032445166648168, +0.494589139130274354176905040095432675), (+1.34637018649932669700489551971874278, +0.636369101548188670770264968269481628), (+1.95614117017172472964911797882066624, +0.660583312236570249825863447638507016), (+1.81751916183755830401546392769621384, +0.931425419633582235931682822345724747), (+1.70581614566144851182848198331618620, +0.720903592680102850216542793433893799), (+1.62699657569457284650931965385869575, +0.340383863684461081646796833189867506), (+1.93130209360780304826233855098251784, +0.728410812740194340064110049997702543), (+1.32806259278765142857314969260254663, +0.512243129747783807389860088992633554), (+1.24126916166923136026922038790962832, +0.712544136675399516108306663787858724), (+1.32447424601811467156859780217818270, +0.674715779953300045410742005901018315), (+1.38968043678234348847153886050446745, +0.114822056880928015615280712890573345E-1), (+1.20868728961489653903633481199062289, +0.384099925573287826510912322854165376), (+1.95325249297240036182534904046034516, +0.724741606538494984901091138287029427), (+1.40254381064515387094299029790116978, +0.376592854867815776330945096151273245), (+1.36601508107787330122628638786146617, +0.691899962790285840099955018204015913), (+1.31052433687236578432788719680519468, +0.108126390344327275579413072253488117), (+1.40516789738508616419611977770780763, +0.944057770136462165375673741521747145), (+1.52412545969564312240102707580141000, +0.867934025080125243715811261942245845), (+1.52627128753995163120458980136887822, +0.583163721662891980083502770107258570), (+1.15014014615751877899036379354207238, +0.767141999396214384112398413809146703), (+1.01319235509221868471101414843170286, +0.405476158387228609102313089705023981), (+1.38902933311641075221914939183978390, +0.149278419644152455885342377704586117), (+1.84935769251461693745557543602459506, +0.458767048405601012995819669817259639), (+1.65761841857015561627035773318573000, +0.330385374421781851125968655865169484), (+1.24557770675620844969391446132034014, +0.148014927446355796023020554327767019), (+1.73413925889246662191590809887284950, +0.895421125161822821929539902693811299), (+1.35891256522830380867953649668328560, +0.724436668216038648373581517411904060), (+1.49634217203931273219584395138399573, +0.741692000799931252574749949707219832), (+1.60916639204357607118884178264125295, +0.721444663838116080568221296300611978), (+1.91102331464461544369576299405458618, +0.689772313984248048960540728627075940), (+1.59589792384701180790199275160046088, +0.510772496833291606256073836601326939), (+1.86669918891027905561415369408255096, +0.753628111628067488765918096964690694), (+1.69152260273565722589173741616246165, +0.708053211004091808682097080379474602), (+1.89858797554245672775242405894812507, +0.629429925736577333571434733614783026), (+1.84242636118747086015601652332991241, +0.998505706273701134516105404921464832E-1), (+1.66120895279362822883907245747933855, +0.331837016187426272493514156329190369), (+1.47220318214253223148530379236722415, +0.260998910821068991390619261098119669), (+1.98614841392203325764233987165125181, +0.134576542092015960127823586060789579), (+1.59403306738118176868398211527219661, +0.433171104991358668911879881840338984), (+1.93122611087875632865337127245328250, +0.528239043563507581780041428828318212), (+1.32662557426151194295215739995768832, +0.553664563792551267823991362841368258), (+1.47149680677481913404813685778191276, +0.447220297002532029594024657794910047), (+1.19931570948828584913984776007157884, +0.680736994330162116916833669141885256), (+1.45076795928899456485306352325400201, +0.548815182299511851814834444505180824), (+1.23024323895858918079110217996473358, +0.275167192482671268397881434293897032), (+1.59946823119505108688106574396675785, +0.173526988181799234114995968343091903), (+1.48927611654975851889642094502306849, +0.998567695955493476429292986659363618), (+1.25160267924731033389351584539863236, +0.915971524581089953380730481067269167E-1), (+1.12013373099597147429321068301871384, +0.565231738296774669738157251790971378), (+1.25264829245115383739369811371271491, +0.175862728980968721228346827794131781E-1), (+1.24907435946069211054758949369638894, +0.798364453389986469485545147041951595), (+1.46274473518121987210825267899965867, +0.415007633357993724128569935561111545), (+1.34148198160881379415938966746588342, +0.581842406914622997649776223855761716), (+1.10786413161726524927016338653685568, +0.383486331502667571439530004309605118), (+1.52400853490373417581087013670980709, +0.457443897022678089615201069974727695), (+1.70192981455757354491977691311182054, +0.786948718005895734389274458317400322), (+1.96209053246663248358951224144145730, +0.813706482486893410153850067713903516), (+1.81024892322064485184603856414924963, +0.705239723652759665878893480279282974), (+1.93089802581555660496178069595313860, +0.597317968448564862492170770547038194), (+1.05692752011416144337805163642936197, +0.558906915392845569934458097500079476), (+1.54173663612216485360133345516506373, +0.980554035754871658141678263627228196), (+1.73159988042262731467713531036531524, +0.147110793457719110886171279346499055), (+1.47566048233729249435575695588562247, +0.670784533141378922573874883117940075), (+1.08975804190489804175458256571086439, +0.790184359503049194548006349739128774), (+1.03401613307603457097976077547380098, +0.491678222629081272868814520314209165), (+1.20491140275494133725894255700012688, +0.223257171735435898889265010155360756), (+1.50125767202985992219436591325039841, +0.729347209573945860523953818042326598), (+1.97187428936754946335390655931869003, +0.421441740316103867731576741531015238), (+1.36472172270615692884601879291698445, +0.433945630523526783479751875073948962E-1), (+1.69412155096881147351321548405595185, +0.675111344888057036671580721032125738), (+1.45028336400473253276423294169494769, +0.911563624048769911958574188115605113), (+1.76688405519944497617002383667140485, +0.209073240460512635887393687315928432), (+1.22297481769238080333267876064815799, +0.844681516805698247867482735904078657), (+1.40927298608545290522761169539106492, +0.337701383139736384336949309876680914E-1), (+1.16271353335126166136133513383427930, +0.820175991636582662394764534978011946), (+1.42136268698555854596552447319498897, +0.453268439360282733650010079052764583), (+1.69012983109958734401269401477699909, +0.976828678474231397229243525647559528E-1)
347
348atad = getFFTI(getFFTF(data))
349atad
350(+1.00378802951387754060483476121931993, +0.390216719797553965467657152812867132), (+1.60065619072339924560770920187533185, +0.239978416304424378392287207739312829), (+1.10409779667514415920175948471275113, +0.691588057760348501779338046431607310), (+1.00465300097751097240620468348063565, +0.992281686645513802346141162775876259), (+1.78737399412480063384832252751812885, +0.132081185734028534092268781321119748), (+1.06352613140534004174165700006698177, +0.131841379794372813583961695421650866), (+1.71698647649901488330456068186585798, +0.395741627408697930156898526920123585), (+1.01314419247496180582518426342038213, +0.279576366357942893740166204458502460), (+1.03155791798142532623963910209148363, +0.745348734796266235296260865201589818), (+1.09549432743788865869662653036783530, +0.399605807046137721104404846431419760), (+1.62378941727423367228808835990847341, +0.821432528164352605783445498395387794E-1), (+1.74128778683935808088323285621281286, +0.688916777204421577590618192573415524), (+1.09380582713520992659759118332072809, +0.701649114520252910275048669111055854), (+1.92057897509704371901279841141931155, +0.910298261654505412478028422931048613), (+1.72916701489592289940032445166648207, +0.494589139130274354176905040095432915), (+1.34637018649932669700489551971874297, +0.636369101548188670770264968269481628), (+1.95614117017172472964911797882066643, +0.660583312236570249825863447638506919), (+1.81751916183755830401546392769621384, +0.931425419633582235931682822345724747), (+1.70581614566144851182848198331618620, +0.720903592680102850216542793433893895), (+1.62699657569457284650931965385869594, +0.340383863684461081646796833189867506), (+1.93130209360780304826233855098251746, +0.728410812740194340064110049997702446), (+1.32806259278765142857314969260254701, +0.512243129747783807389860088992633554), (+1.24126916166923136026922038790962832, +0.712544136675399516108306663787858532), (+1.32447424601811467156859780217818270, +0.674715779953300045410742005901018508), (+1.38968043678234348847153886050446764, +0.114822056880928015615280712890573345E-1), (+1.20868728961489653903633481199062309, +0.384099925573287826510912322854165425), (+1.95325249297240036182534904046034536, +0.724741606538494984901091138287029620), (+1.40254381064515387094299029790117036, +0.376592854867815776330945096151273341), (+1.36601508107787330122628638786146617, +0.691899962790285840099955018204016201), (+1.31052433687236578432788719680519506, +0.108126390344327275579413072253487852), (+1.40516789738508616419611977770780763, +0.944057770136462165375673741521747626), (+1.52412545969564312240102707580141038, +0.867934025080125243715811261942245941), (+1.52627128753995163120458980136887841, +0.583163721662891980083502770107258570), (+1.15014014615751877899036379354207257, +0.767141999396214384112398413809146896), (+1.01319235509221868471101414843170286, +0.405476158387228609102313089705023981), (+1.38902933311641075221914939183978428, +0.149278419644152455885342377704586021), (+1.84935769251461693745557543602459544, +0.458767048405601012995819669817259736), (+1.65761841857015561627035773318573038, +0.330385374421781851125968655865169629), (+1.24557770675620844969391446132034033, +0.148014927446355796023020554327767115), (+1.73413925889246662191590809887285008, +0.895421125161822821929539902693811588), (+1.35891256522830380867953649668328579, +0.724436668216038648373581517411904446), (+1.49634217203931273219584395138399592, +0.741692000799931252574749949707220410), (+1.60916639204357607118884178264125314, +0.721444663838116080568221296300612170), (+1.91102331464461544369576299405458657, +0.689772313984248048960540728627076325), (+1.59589792384701180790199275160046107, +0.510772496833291606256073836601327228), (+1.86669918891027905561415369408255173, +0.753628111628067488765918096964691079), (+1.69152260273565722589173741616246203, +0.708053211004091808682097080379474795), (+1.89858797554245672775242405894812545, +0.629429925736577333571434733614783315), (+1.84242636118747086015601652332991241, +0.998505706273701134516105404921465795E-1), (+1.66120895279362822883907245747933894, +0.331837016187426272493514156329190561), (+1.47220318214253223148530379236722453, +0.260998910821068991390619261098119573), (+1.98614841392203325764233987165125219, +0.134576542092015960127823586060789675), (+1.59403306738118176868398211527219661, +0.433171104991358668911879881840339032), (+1.93122611087875632865337127245328365, +0.528239043563507581780041428828318308), (+1.32662557426151194295215739995768832, +0.553664563792551267823991362841368161), (+1.47149680677481913404813685778191315, +0.447220297002532029594024657794910432), (+1.19931570948828584913984776007157884, +0.680736994330162116916833669141885545), (+1.45076795928899456485306352325400220, +0.548815182299511851814834444505181209), (+1.23024323895858918079110217996473396, +0.275167192482671268397881434293897081), (+1.59946823119505108688106574396675862, +0.173526988181799234114995968343091903), (+1.48927611654975851889642094502306849, +0.998567695955493476429292986659364099), (+1.25160267924731033389351584539863274, +0.915971524581089953380730481067269649E-1), (+1.12013373099597147429321068301871384, +0.565231738296774669738157251790971281), (+1.25264829245115383739369811371271491, +0.175862728980968721228346827794132112E-1), (+1.24907435946069211054758949369638894, +0.798364453389986469485545147041951595), (+1.46274473518121987210825267899965867, +0.415007633357993724128569935561111641), (+1.34148198160881379415938966746588342, +0.581842406914622997649776223855761524), (+1.10786413161726524927016338653685568, +0.383486331502667571439530004309605166), (+1.52400853490373417581087013670980709, +0.457443897022678089615201069974727647), (+1.70192981455757354491977691311182112, +0.786948718005895734389274458317400322), (+1.96209053246663248358951224144145710, +0.813706482486893410153850067713903612), (+1.81024892322064485184603856414925001, +0.705239723652759665878893480279283263), (+1.93089802581555660496178069595313879, +0.597317968448564862492170770547038483), (+1.05692752011416144337805163642936178, +0.558906915392845569934458097500079572), (+1.54173663612216485360133345516506353, +0.980554035754871658141678263627228100), (+1.73159988042262731467713531036531524, +0.147110793457719110886171279346499055), (+1.47566048233729249435575695588562227, +0.670784533141378922573874883117940267), (+1.08975804190489804175458256571086439, +0.790184359503049194548006349739129256), (+1.03401613307603457097976077547380059, +0.491678222629081272868814520314209021), (+1.20491140275494133725894255700012688, +0.223257171735435898889265010155361069), (+1.50125767202985992219436591325039841, +0.729347209573945860523953818042326694), (+1.97187428936754946335390655931869042, +0.421441740316103867731576741531015141), (+1.36472172270615692884601879291698445, +0.433945630523526783479751875073947036E-1), (+1.69412155096881147351321548405595204, +0.675111344888057036671580721032125931), (+1.45028336400473253276423294169494769, +0.911563624048769911958574188115605113), (+1.76688405519944497617002383667140562, +0.209073240460512635887393687315928384), (+1.22297481769238080333267876064815799, +0.844681516805698247867482735904078561), (+1.40927298608545290522761169539106492, +0.337701383139736384336949309876681877E-1), (+1.16271353335126166136133513383427911, +0.820175991636582662394764534978011946), (+1.42136268698555854596552447319498916, +0.453268439360282733650010079052764920), (+1.69012983109958734401269401477699909, +0.976828678474231397229243525647558565E-1), (-0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, +0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, +0.138426214752832576938398414623291651E-33), (-0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (-0.481482486096808963263994485646231830E-33, +0.240741243048404481631997242823115915E-33), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000), (+0.00000000000000000000000000000000000, -0.168518870133883137142398069976181140E-33), (-0.385185988877447170611195588516985464E-33, -0.842594350669415685711990349880905702E-34), (-0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, +0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34), (-0.674075480535532548569592279904724561E-33, +0.00000000000000000000000000000000000), (-0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-33), (-0.674075480535532548569592279904724561E-33, -0.240741243048404481631997242823115915E-33), (-0.288889491658085377958396691387739098E-33, -0.529630734706489859590393934210855013E-33), (-0.481482486096808963263994485646231830E-33, -0.385185988877447170611195588516985464E-33), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, -0.240741243048404481631997242823115915E-33), (-0.192592994438723585305597794258492732E-33, -0.240741243048404481631997242823115915E-33), (-0.674075480535532548569592279904724561E-33, -0.192592994438723585305597794258492732E-33), (-0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000), (-0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (-0.577778983316170755916793382775478196E-33, -0.962964972193617926527988971292463659E-34), (-0.481482486096808963263994485646231830E-33, +0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (-0.674075480535532548569592279904724561E-33, -0.120370621524202240815998621411557957E-33), (-0.962964972193617926527988971292463659E-34, -0.337037740267766274284796139952362281E-33), (-0.577778983316170755916793382775478196E-33, -0.433334237487128066937595037081608647E-33), (+0.288889491658085377958396691387739098E-33, -0.337037740267766274284796139952362281E-33), (+0.962964972193617926527988971292463659E-34, -0.505556610401649411427194209928543421E-33), (-0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33), (-0.385185988877447170611195588516985464E-33, -0.493519548249229187345594347787387625E-33), (-0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (-0.674075480535532548569592279904724561E-33, -0.466436158406283683161994657969787085E-33)
351reltol = sqrt(epsilon(1._TKC))
352reltol
353+0.138777878078144567552953958511352539E-16
354isClose(data, atad(1:size(data)), reltol = reltol)
355T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
356call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
357
358lenData = getUnifRand(5, 100)
359lenData
360+26
361data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
362data
363+1.69765139, +1.25404084, +1.18017340, +1.56140947, +1.00839615, +1.41861415, +1.57615054, +1.19864011, +1.41795945, +1.37478065, +1.67840660, +1.59132743, +1.03459239, +1.66728163, +1.46328521, +1.94085741, +1.20260024, +1.83370328, +1.85507536, +1.15295672, +1.50393844, +1.93490911, +1.71281278, +1.13811970, +1.25066638, +1.01715684
364
365atad = getFFTI(getFFTF(data))
366atad
367+1.69765139, +1.25404084, +1.18017340, +1.56140959, +1.00839603, +1.41861415, +1.57615042, +1.19864035, +1.41795933, +1.37478065, +1.67840660, +1.59132719, +1.03459239, +1.66728151, +1.46328545, +1.94085717, +1.20260024, +1.83370316, +1.85507536, +1.15295684, +1.50393832, +1.93490887, +1.71281242, +1.13811970, +1.25066626, +1.01715684, -0.357627869E-6, +0.596046448E-7, -0.596046448E-7, +0.357627869E-6, +0.00000000, +0.238418579E-6
368reltol = sqrt(epsilon(1._TKC))
369reltol
370+0.345266977E-3
371isClose(data, atad(1:size(data)), reltol = reltol)
372T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
373call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
374
375lenData = getUnifRand(5, 100)
376lenData
377+84
378data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
379data
380+1.0508844385097880, +1.5749892586439218, +1.9890946525572293, +1.3337050022517531, +1.7302715349945406, +1.9694663399993031, +1.1270811448751425, +1.0520455898664869, +1.2685914291214206, +1.7102069406443507, +1.9487147068920252, +1.0029622048037070, +1.3973609851608257, +1.5748968918642432, +1.3624223739078023, +1.9155214731550512, +1.4593730169479950, +1.3307335717857467, +1.7519728239974914, +1.1458943258611325, +1.5395062118388423, +1.8082329257323289, +1.1666820789186989, +1.5285176871496859, +1.8236832106035825, +1.9803071463977011, +1.6958143492651294, +1.9414521372599889, +1.5365674232234690, +1.5557634518707553, +1.2951347059493545, +1.4125442504773731, +1.0012900235129751, +1.3301812403276256, +1.5496684805697223, +1.9081076740993539, +1.2253472004583070, +1.7394822850469454, +1.0964656428462822, +1.1397400318140161, +1.5238275872403033, +1.8086687777432733, +1.3636626670378154, +1.3782669208798981, +1.9122640786362757, +1.8262566828021276, +1.1249567617085745, +1.0654293300409909, +1.8339825243841563, +1.9847886183504773, +1.3734711404129771, +1.9524763961543177, +1.0442197036474825, +1.5419323840628518, +1.7449403473606075, +1.2382539321361556, +1.7217531341578227, +1.0054279282773373, +1.4008082692777024, +1.5996010869689534, +1.8357725463865022, +1.4230447226531022, +1.2525705712338109, +1.1016425080731949, +1.4326966790259785, +1.5833430240808168, +1.7208750056386171, +1.3356113734995616, +1.6178396874626957, +1.8607413601060918, +1.3641639916484989, +1.2243802809774600, +1.1887125752243153, +1.4367611833530782, +1.1701222977457850, +1.2112667865522875, +1.9724382270800063, +1.8727400353571459, +1.9620568651832855, +1.8946734497295510, +1.7677372592856875, +1.3129320751683677, +1.4775332986725507, +1.5893156279170362
381
382atad = getFFTI(getFFTF(data))
383atad
384+1.0508844385097875, +1.5749892586439218, +1.9890946525572291, +1.3337050022517538, +1.7302715349945399, +1.9694663399993024, +1.1270811448751419, +1.0520455898664869, +1.2685914291214206, +1.7102069406443510, +1.9487147068920250, +1.0029622048037077, +1.3973609851608257, +1.5748968918642432, +1.3624223739078012, +1.9155214731550512, +1.4593730169479950, +1.3307335717857469, +1.7519728239974910, +1.1458943258611329, +1.5395062118388412, +1.8082329257323284, +1.1666820789186985, +1.5285176871496859, +1.8236832106035821, +1.9803071463977011, +1.6958143492651285, +1.9414521372599893, +1.5365674232234685, +1.5557634518707548, +1.2951347059493536, +1.4125442504773731, +1.0012900235129751, +1.3301812403276252, +1.5496684805697221, +1.9081076740993539, +1.2253472004583075, +1.7394822850469449, +1.0964656428462818, +1.1397400318140156, +1.5238275872403035, +1.8086687777432735, +1.3636626670378158, +1.3782669208798979, +1.9122640786362761, +1.8262566828021276, +1.1249567617085745, +1.0654293300409909, +1.8339825243841565, +1.9847886183504775, +1.3734711404129771, +1.9524763961543181, +1.0442197036474825, +1.5419323840628512, +1.7449403473606071, +1.2382539321361550, +1.7217531341578227, +1.0054279282773373, +1.4008082692777029, +1.5996010869689532, +1.8357725463865018, +1.4230447226531018, +1.2525705712338109, +1.1016425080731942, +1.4326966790259785, +1.5833430240808166, +1.7208750056386173, +1.3356113734995618, +1.6178396874626957, +1.8607413601060914, +1.3641639916484987, +1.2243802809774600, +1.1887125752243153, +1.4367611833530785, +1.1701222977457852, +1.2112667865522881, +1.9724382270800067, +1.8727400353571459, +1.9620568651832855, +1.8946734497295510, +1.7677372592856881, +1.3129320751683677, +1.4775332986725505, +1.5893156279170362, +0.11102230246251565E-14, -0.11102230246251565E-15, +0.44408920985006262E-15, -0.55511151231257827E-15, +0.22204460492503131E-15, -0.22204460492503131E-15, +0.66613381477509392E-15, +0.0000000000000000, +0.55511151231257827E-15, +0.11102230246251565E-15, +0.77715611723760958E-15, -0.22204460492503131E-15, +0.11102230246251565E-15, -0.22204460492503131E-15, -0.44408920985006262E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, +0.11102230246251565E-15, -0.11102230246251565E-15, +0.11102230246251565E-15, -0.22204460492503131E-15, +0.0000000000000000, -0.11102230246251565E-15, +0.22204460492503131E-15, -0.11102230246251565E-15, +0.33306690738754696E-15, -0.22204460492503131E-15, +0.33306690738754696E-15, +0.22204460492503131E-15, +0.33306690738754696E-15, +0.11102230246251565E-15, +0.55511151231257827E-15, -0.44408920985006262E-15, +0.44408920985006262E-15, +0.11102230246251565E-15, +0.88817841970012523E-15, -0.11102230246251565E-15, +0.55511151231257827E-15, -0.77715611723760958E-15, +0.77715611723760958E-15, -0.33306690738754696E-15, +0.77715611723760958E-15, -0.33306690738754696E-15, +0.77715611723760958E-15
385reltol = sqrt(epsilon(1._TKC))
386reltol
387+0.14901161193847656E-7
388isClose(data, atad(1:size(data)), reltol = reltol)
389T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
390call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
391
392lenData = getUnifRand(5, 100)
393lenData
394+93
395data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
396data
397+1.04901147719417127064968750818843750, +1.97481505905067456465035431222968037, +1.50207443005108115511351829541848116, +1.33079274555797164650052167430231072, +1.77514508278574939650767875982082325, +1.02031902219374955588168701610956199, +1.00450007711287891451773537595839309, +1.87967784029072401152810002542443070, +1.62684090991033810335037410866164257, +1.05646770757460324791583817163806035, +1.45028079798760509293548157569619756, +1.63962839853257853329300703717037753, +1.32581926318162950067166417511438030, +1.42971616482775181895853037490195282, +1.23808165852839967309250846207759562, +1.62251213554717309010640069246415558, +1.18889688077529484847406933311527737, +1.53906900058567617148124235458697649, +1.86281767529574333097229900732928892, +1.80559157330733165449926698424214003, +1.20009710703853272071312884498957293, +1.46163434805965017654008641962813517, +1.37740627269042605507082389466387214, +1.74476934992317788720613252229422502, +1.83414186180300240289501868673504866, +1.32259173322112795641484502603592011, +1.41987070363652692461378485489619424, +1.79788235176705142429667921466077341, +1.50488274545428210026344985364059402, +1.11334964319366087975376677253542212, +1.66585329933520977809804376289833164, +1.25979724301067675057379907951085434, +1.22491580744664295450278830903882360, +1.10418477950843463488227511683367914, +1.76646194973523736954981086561921727, +1.17749791409910007880685351295594142, +1.58345566885376662057305217925402897, +1.44043678444063073689179060381128352, +1.98019352876924300211921670403001761, +1.34324654422794369539981682675595375, +1.49475786224841101330686670844059088, +1.71525433170769862277236402332610520, +1.09243386218438563692687121024571655, +1.20956575081603843348511753934263346, +1.43293285977568671191069238113306708, +1.80068832282790845630807335823169856, +1.13861133908048807810419853484943133, +1.56338155684403809322454696945779089, +1.53976936890088605228559747360648693, +1.40879885463794639234535283224906637, +1.15803962185910734773980652170422526, +1.75510690826955015917685568543191598, +1.42872789620278813910701213274733323, +1.54059916212786439821875195594923318, +1.38254497916451869628299266070614434, +1.05941090464134482225352146550409867, +1.05964476266363427925132525336105528, +1.96444979769371423245959622085163393, +1.36609882935130152244367805549451427, +1.07656567637616542845902230343609484, +1.16716234491725763577078180407690474, +1.12854013869240596866181247286313654, +1.47422726635426607962206517960369030, +1.23801841583153566455503848213556919, +1.27457513430272568210420112768862015, +1.02498259279341044122660395509520448, +1.38712186517369585007161090461553906, +1.33544883401986561318186276936741467, +1.34947641009856262165195159453171503, +1.48739231941762627774495961463526780, +1.83831678265086118668611887489158116, +1.81597449658604311605454337195666716, +1.55638300823590725889509829443998085, +1.38990151709258725544955224888355100, +1.11965425881158217208229694381178381, +1.78406532561428075145518288622936623, +1.10998375272559904333872750856835835, +1.17765362913877477621054795055474744, +1.40629109462617279765197463974193809, +1.66780655489748746897533539001882414, +1.30848053387725175991163684139800780, +1.63505020780620121562576703204653511, +1.93858743185314149304980107571222767, +1.59091708291949545781598516948419230, +1.16160767585898940329485441374771462, +1.49474878638463436641540162111703994, +1.82052594560824830866362851381462131, +1.94270189038892474817950195282877637, +1.40012296474737480842894463475108802, +1.30435416078261223078020990947377571, +1.62621890727343157361038147491314626, +1.83808585773109436848664079745509165, +1.73097028565286645547389609624113828
398
399atad = getFFTI(getFFTF(data))
400atad
401+1.04901147719417127064968750818843750, +1.97481505905067456465035431222968076, +1.50207443005108115511351829541848135, +1.33079274555797164650052167430231130, +1.77514508278574939650767875982082306, +1.02031902219374955588168701610956160, +1.00450007711287891451773537595839309, +1.87967784029072401152810002542443109, +1.62684090991033810335037410866164315, +1.05646770757460324791583817163806016, +1.45028079798760509293548157569619794, +1.63962839853257853329300703717037753, +1.32581926318162950067166417511438049, +1.42971616482775181895853037490195282, +1.23808165852839967309250846207759600, +1.62251213554717309010640069246415558, +1.18889688077529484847406933311527737, +1.53906900058567617148124235458697687, +1.86281767529574333097229900732928873, +1.80559157330733165449926698424214022, +1.20009710703853272071312884498957293, +1.46163434805965017654008641962813536, +1.37740627269042605507082389466387195, +1.74476934992317788720613252229422541, +1.83414186180300240289501868673504905, +1.32259173322112795641484502603592030, +1.41987070363652692461378485489619405, +1.79788235176705142429667921466077399, +1.50488274545428210026344985364059421, +1.11334964319366087975376677253542250, +1.66585329933520977809804376289833164, +1.25979724301067675057379907951085472, +1.22491580744664295450278830903882360, +1.10418477950843463488227511683367914, +1.76646194973523736954981086561921766, +1.17749791409910007880685351295594142, +1.58345566885376662057305217925402878, +1.44043678444063073689179060381128352, +1.98019352876924300211921670403001742, +1.34324654422794369539981682675595394, +1.49475786224841101330686670844059126, +1.71525433170769862277236402332610558, +1.09243386218438563692687121024571655, +1.20956575081603843348511753934263307, +1.43293285977568671191069238113306708, +1.80068832282790845630807335823169894, +1.13861133908048807810419853484943133, +1.56338155684403809322454696945779108, +1.53976936890088605228559747360648693, +1.40879885463794639234535283224906618, +1.15803962185910734773980652170422526, +1.75510690826955015917685568543191618, +1.42872789620278813910701213274733323, +1.54059916212786439821875195594923280, +1.38254497916451869628299266070614473, +1.05941090464134482225352146550409848, +1.05964476266363427925132525336105509, +1.96444979769371423245959622085163432, +1.36609882935130152244367805549451447, +1.07656567637616542845902230343609484, +1.16716234491725763577078180407690493, +1.12854013869240596866181247286313634, +1.47422726635426607962206517960369030, +1.23801841583153566455503848213556881, +1.27457513430272568210420112768862015, +1.02498259279341044122660395509520448, +1.38712186517369585007161090461553925, +1.33544883401986561318186276936741486, +1.34947641009856262165195159453171503, +1.48739231941762627774495961463526799, +1.83831678265086118668611887489158135, +1.81597449658604311605454337195666697, +1.55638300823590725889509829443998104, +1.38990151709258725544955224888355119, +1.11965425881158217208229694381178401, +1.78406532561428075145518288622936623, +1.10998375272559904333872750856835835, +1.17765362913877477621054795055474725, +1.40629109462617279765197463974193809, +1.66780655489748746897533539001882472, +1.30848053387725175991163684139800819, +1.63505020780620121562576703204653492, +1.93858743185314149304980107571222786, +1.59091708291949545781598516948419230, +1.16160767585898940329485441374771462, +1.49474878638463436641540162111703994, +1.82052594560824830866362851381462150, +1.94270189038892474817950195282877599, +1.40012296474737480842894463475108782, +1.30435416078261223078020990947377571, +1.62621890727343157361038147491314588, +1.83808585773109436848664079745509184, +1.73097028565286645547389609624113847, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, +0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.577778983316170755916793382775478196E-33, -0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.288889491658085377958396691387739098E-33, +0.288889491658085377958396691387739098E-33, +0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, +0.481482486096808963263994485646231830E-33, +0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, -0.577778983316170755916793382775478196E-33, +0.288889491658085377958396691387739098E-33, -0.770371977754894341222391177033970927E-33, -0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33, +0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000
402reltol = sqrt(epsilon(1._TKC))
403reltol
404+0.138777878078144567552953958511352539E-16
405isClose(data, atad(1:size(data)), reltol = reltol)
406T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
407call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
408
409lenData = getUnifRand(5, 100)
410lenData
411+85
412data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
413data
414(+1.52645290, +0.756909847E-1), (+1.08255839, +0.830268502), (+1.14624858, +0.632911325E-1), (+1.23826802, +0.762186825), (+1.38729000, +0.634460211), (+1.52896094, +0.542190433), (+1.58268833, +0.963333130), (+1.57492614, +0.263650239), (+1.44933534, +0.925795496), (+1.96393585, +0.666522920), (+1.14383364, +0.801903129), (+1.29627228, +0.735921800), (+1.70987642, +0.799679101), (+1.82818484, +0.256761849), (+1.38645363, +0.517862856), (+1.34495926, +0.464276075E-1), (+1.75103664, +0.243134141), (+1.42610717, +0.531661510E-2), (+1.89014840, +0.886008739E-1), (+1.00604773, +0.594093025), (+1.54949546, +0.445975721), (+1.02790880, +0.612375379), (+1.76425242, +0.212643862), (+1.91645813, +0.775688648), (+1.31231403, +0.459662378), (+1.34763241, +0.903057933), (+1.79573047, +0.648859143), (+1.79590094, +0.864467859), (+1.60380030, +0.577368975), (+1.96562386, +0.779791296), (+1.80109835, +0.581579506), (+1.75061917, +0.405738175), (+1.45590496, +0.341763496E-1), (+1.12187529, +0.961200058), (+1.89385796, +0.591817319), (+1.70171440, +0.919223964), (+1.87715006, +0.564272404), (+1.68653846, +0.739185631), (+1.70932174, +0.801975846), (+1.77664495, +0.736115932), (+1.78246641, +0.623975515), (+1.32666326, +0.761533380E-1), (+1.95411551, +0.967000484), (+1.82392597, +0.265721083E-1), (+1.80417061, +0.679936945), (+1.75725293, +0.942869663), (+1.89608681, +0.371359348), (+1.31818342, +0.996428132), (+1.75635290, +0.777839780), (+1.05728614, +0.910663843), (+1.53099597, +0.582386971), (+1.63654256, +0.427655995), (+1.30931425, +0.726712525), (+1.00261950, +0.145157218), (+1.16420817, +0.369379938), (+1.68027771, +0.632795930), (+1.40942824, +0.852187812), (+1.28672481, +0.645341337), (+1.62331772, +0.426338911E-1), (+1.69668674, +0.370235264), (+1.43361354, +0.447574437), (+1.97705197, +0.878267646), (+1.35479569, +0.351296544), (+1.85199499, +0.548066020), (+1.53432512, +0.633718550), (+1.48547423, +0.682476580), (+1.76533008, +0.926080227), (+1.53892756, +0.989994645), (+1.76681256, +0.507707775), (+1.74510276, +0.215782821), (+1.54161286, +0.481179833), (+1.54615879, +0.603738606), (+1.42683649, +0.885451078), (+1.32138431, +0.408356667), (+1.42093146, +0.242887676), (+1.52061892, +0.543006241), (+1.57510591, +0.579477012), (+1.77676845, +0.202862203), (+1.83303702, +0.569142103E-1), (+1.34614205, +0.787390113), (+1.64478540, +0.639751792), (+1.60307872, +0.550279260), (+1.66484106, +0.295294881), (+1.58164978, +0.951551676), (+1.30672264, +0.213222623)
415
416atad = getFFTI(getFFTF(data))
417atad
418(+1.52645314, +0.756910145E-1), (+1.08255851, +0.830268443), (+1.14624846, +0.632911921E-1), (+1.23826766, +0.762186885), (+1.38728988, +0.634460151), (+1.52896070, +0.542190373), (+1.58268833, +0.963332891), (+1.57492578, +0.263650239), (+1.44933546, +0.925795674), (+1.96393585, +0.666523159), (+1.14383364, +0.801903009), (+1.29627252, +0.735921681), (+1.70987654, +0.799679041), (+1.82818508, +0.256761938), (+1.38645375, +0.517862916), (+1.34495926, +0.464276373E-1), (+1.75103652, +0.243134275), (+1.42610705, +0.531679392E-2), (+1.89014828, +0.886009410E-1), (+1.00604761, +0.594093204), (+1.54949522, +0.445975780), (+1.02790880, +0.612375259), (+1.76425231, +0.212643862), (+1.91645777, +0.775688767), (+1.31231415, +0.459662527), (+1.34763241, +0.903058112), (+1.79573059, +0.648859084), (+1.79590082, +0.864467919), (+1.60380054, +0.577369094), (+1.96562374, +0.779791474), (+1.80109859, +0.581579387), (+1.75061917, +0.405738354), (+1.45590496, +0.341762714E-1), (+1.12187517, +0.961199999), (+1.89385808, +0.591816902), (+1.70171428, +0.919223845), (+1.87715018, +0.564272165), (+1.68653846, +0.739185452), (+1.70932198, +0.801975489), (+1.77664495, +0.736115694), (+1.78246653, +0.623975515), (+1.32666314, +0.761533678E-1), (+1.95411539, +0.967000186), (+1.82392597, +0.265721083E-1), (+1.80417073, +0.679936826), (+1.75725293, +0.942869782), (+1.89608705, +0.371359229), (+1.31818342, +0.996428072), (+1.75635290, +0.777839720), (+1.05728614, +0.910663724), (+1.53099608, +0.582386732), (+1.63654256, +0.427655905), (+1.30931425, +0.726712346), (+1.00261950, +0.145157263), (+1.16420829, +0.369379818), (+1.68027747, +0.632795751), (+1.40942824, +0.852187753), (+1.28672481, +0.645341158), (+1.62331772, +0.426338613E-1), (+1.69668674, +0.370235234), (+1.43361354, +0.447574317), (+1.97705173, +0.878267467), (+1.35479569, +0.351296335), (+1.85199463, +0.548065901), (+1.53432524, +0.633718610), (+1.48547423, +0.682476461), (+1.76533020, +0.926080048), (+1.53892756, +0.989994526), (+1.76681268, +0.507707775), (+1.74510264, +0.215782940), (+1.54161310, +0.481179804), (+1.54615891, +0.603738487), (+1.42683637, +0.885451198), (+1.32138443, +0.408356726), (+1.42093134, +0.242887735), (+1.52061892, +0.543006361), (+1.57510591, +0.579477072), (+1.77676845, +0.202862486), (+1.83303702, +0.569142848E-1), (+1.34614205, +0.787390232), (+1.64478528, +0.639751792), (+1.60307872, +0.550279319), (+1.66484129, +0.295294613), (+1.58164990, +0.951551557), (+1.30672264, +0.213222623), (+0.178813934E-6, +0.268220901E-6), (+0.596046448E-6, +0.119209290E-6), (+0.476837158E-6, +0.268220901E-6), (+0.238418579E-6, -0.208616257E-6), (+0.178813934E-6, -0.178813934E-6), (+0.417232513E-6, +0.00000000), (+0.238418579E-6, -0.596046448E-7), (+0.178813934E-6, -0.149011612E-6), (+0.00000000, -0.298023224E-7), (+0.298023224E-6, +0.596046448E-7), (+0.178813934E-6, +0.894069672E-7), (+0.178813934E-6, +0.137835741E-6), (+0.119209290E-6, +0.149011612E-6), (+0.357627869E-6, +0.298023224E-6), (+0.596046448E-7, +0.298023224E-6), (+0.119209290E-6, +0.357627869E-6), (+0.596046448E-7, +0.327825546E-6), (+0.357627869E-6, +0.357627869E-6), (+0.178813934E-6, +0.476837158E-6), (+0.119209290E-6, +0.894069672E-7), (+0.00000000, -0.298023224E-7), (+0.298023224E-6, +0.238418579E-6), (+0.298023224E-6, +0.178813934E-6), (+0.119209290E-6, +0.596046448E-7), (+0.596046448E-7, +0.00000000), (+0.357627869E-6, +0.178813934E-6), (+0.238418579E-6, +0.596046448E-7), (+0.238418579E-6, +0.596046448E-7), (+0.238418579E-6, +0.894069672E-7), (+0.476837158E-6, +0.238418579E-6), (+0.238418579E-6, +0.298023224E-7), (+0.00000000, +0.238418579E-6), (+0.178813934E-6, +0.134110451E-6), (+0.357627869E-6, +0.283122063E-6), (+0.238418579E-6, +0.417232513E-6), (+0.476837158E-6, +0.298023224E-7), (+0.417232513E-6, +0.00000000), (+0.536441803E-6, +0.894069672E-7), (+0.298023224E-6, +0.596046448E-7), (+0.298023224E-6, -0.149011612E-7), (+0.178813934E-6, -0.596046448E-7), (+0.238418579E-6, +0.208616257E-6), (+0.238418579E-6, +0.894069672E-7)
419reltol = sqrt(epsilon(1._TKC))
420reltol
421+0.345266977E-3
422isClose(data, atad(1:size(data)), reltol = reltol)
423T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
424call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
425
426lenData = getUnifRand(5, 100)
427lenData
428+87
429data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
430data
431(+1.0865342338567059, +0.63390698965677517), (+1.1663888778116087, +0.84613375249190603), (+1.8651201036516669, +0.97297485631318992), (+1.6964240471572833, +0.77778623523753176), (+1.3211687400616545, +0.91338125825396899), (+1.0980520080676710, +0.67989653365039149), (+1.1454946550770708, +0.28661380972476014), (+1.9577232018789836, +0.32460460538068781), (+1.4579027432424831, +0.99339215680723603), (+1.4433628173148083, +0.15084939145206810E-2), (+1.8070900270499666, +0.33601817515315213E-2), (+1.4945101631324449, +0.40292448701592931), (+1.1708083270282366, +0.13408169885137433), (+1.3951820261052461, +0.10623455067929832), (+1.1399847730826591, +0.42297856283236734), (+1.2872569511091458, +0.83412375410965245), (+1.8068117389980975, +0.16712390189401705), (+1.1584536714579934, +0.27937089461802833), (+1.1526854338060879, +0.77715771158308156), (+1.2862623364283015, +0.93289695677400764), (+1.9947659029863998, +0.23438056972775956), (+1.7400382558025416, +0.51342830297269260), (+1.0409202805165316, +0.76108316613728966), (+1.9108183742133846, +0.16755193597405338), (+1.0289800948385306, +0.12186927789750068), (+1.5512966246722160, +0.84343565166164203), (+1.8378866464003747, +0.30276634553951975), (+1.0191684899492151, +0.42672019004905481), (+1.3313780689264740, +0.45523011927281820), (+1.6266876096161400, +0.64529926748455102), (+1.9233678534241632, +0.85429722000112651), (+1.9535826540110901, +0.12208270751030670), (+1.6899978611504900, +0.37359952622607528), (+1.8241865965162960, +0.61525267558847130), (+1.2908044903904812, +0.74222110315385914), (+1.5707931226200100, +0.73306586291950615), (+1.7069638786968877, +0.91484382970157363), (+1.7823466273650972, +0.14222154063869286), (+1.8691609219766792, +0.49196563835572027E-1), (+1.8109034518029588, +0.16333359484765242), (+1.3431330680071700, +0.73559358245867534), (+1.1720408812139389, +0.48895675092026814), (+1.8146610694402101, +0.94956189545670722), (+1.7355013774735721, +0.20586552638221167), (+1.4434495069424402, +0.35126402327825001), (+1.1293008188795723, +0.74072696734207644), (+1.1399819554597075, +0.94333614815701405), (+1.9093357228902581, +0.39834801725223368), (+1.3164964614147863, +0.76910660402421305), (+1.4022567248847451, +0.74656044285989065), (+1.8001992171630776, +0.42149728278823739), (+1.3043676139635263, +0.30586530783642818E-2), (+1.6131376703398892, +0.35770177819073334), (+1.5933723707191783, +0.97780015413269827), (+1.0493406278291644, +0.68705711009929760), (+1.4722516085199819, +0.79341229285152515), (+1.4845793922749682, +0.99260706747683014), (+1.3675835371668499, +0.65395613248382500), (+1.5584540969980416, +0.76001646533585643), (+1.5540391985861810, +0.13398438023917270), (+1.5732912639690435, +0.83003437005346070E-1), (+1.5029467517024311, +0.28344159476790043), (+1.0314828495420278, +0.34889038068556621), (+1.8651780627254786, +0.73714446681737988E-1), (+1.0542517323716618, +0.32575714392990185), (+1.1178890566959261, +0.32803744708454474), (+1.4681971750619840, +0.10382859805034517), (+1.7332163807148273, +0.47864981045229782), (+1.1635458563128500, +0.83783004400128025), (+1.1657138331662509, +0.67841801334081209), (+1.8903997869582274, +0.88959741750361598), (+1.6128546545377418, +0.41085570125892756E-1), (+1.9325551474877336, +0.89647587988647104), (+1.4334679327313467, +0.37661860678573811), (+1.9555559572209535, +0.40381527740440792E-1), (+1.2871835685152759, +0.39759581450229664), (+1.7182915901501756, +0.75437916927722126), (+1.4835141971876538, +0.21569851577278054), (+1.7371640782737390, +0.74680486259014445), (+1.0167441280295140, +0.91425575941332626), (+1.5197093811589240, +0.24422538136162908E-2), (+1.1114166409258113, +0.24144582319508490), (+1.1237146270151035, +0.11225139511796345), (+1.9963106063373526, +0.50168455749392549), (+1.3038297160835424, +0.15886649734774827E-1), (+1.4638232490368821, +0.79856953832291644), (+1.2565127024101346, +0.36822715598270417)
432
433atad = getFFTI(getFFTF(data))
434atad
435(+1.0865342338567059, +0.63390698965677506), (+1.1663888778116087, +0.84613375249190614), (+1.8651201036516663, +0.97297485631319003), (+1.6964240471572836, +0.77778623523753210), (+1.3211687400616543, +0.91338125825396899), (+1.0980520080676710, +0.67989653365039160), (+1.1454946550770702, +0.28661380972476014), (+1.9577232018789830, +0.32460460538068830), (+1.4579027432424829, +0.99339215680723614), (+1.4433628173148088, +0.15084939145209308E-2), (+1.8070900270499664, +0.33601817515316913E-2), (+1.4945101631324447, +0.40292448701592981), (+1.1708083270282366, +0.13408169885137455), (+1.3951820261052457, +0.10623455067929888), (+1.1399847730826584, +0.42297856283236768), (+1.2872569511091452, +0.83412375410965289), (+1.8068117389980975, +0.16712390189401721), (+1.1584536714579934, +0.27937089461802850), (+1.1526854338060879, +0.77715771158308133), (+1.2862623364283017, +0.93289695677400808), (+1.9947659029863993, +0.23438056972775939), (+1.7400382558025407, +0.51342830297269271), (+1.0409202805165312, +0.76108316613728966), (+1.9108183742133842, +0.16755193597405341), (+1.0289800948385306, +0.12186927789750063), (+1.5512966246722157, +0.84343565166164214), (+1.8378866464003745, +0.30276634553951987), (+1.0191684899492151, +0.42672019004905498), (+1.3313780689264743, +0.45523011927281831), (+1.6266876096161398, +0.64529926748455091), (+1.9233678534241623, +0.85429722000112629), (+1.9535826540110897, +0.12208270751030738), (+1.6899978611504900, +0.37359952622607517), (+1.8241865965162960, +0.61525267558847130), (+1.2908044903904812, +0.74222110315385892), (+1.5707931226200100, +0.73306586291950615), (+1.7069638786968877, +0.91484382970157307), (+1.7823466273650972, +0.14222154063869250), (+1.8691609219766789, +0.49196563835571527E-1), (+1.8109034518029583, +0.16333359484765231), (+1.3431330680071700, +0.73559358245867501), (+1.1720408812139391, +0.48895675092026836), (+1.8146610694402101, +0.94956189545670688), (+1.7355013774735721, +0.20586552638221198), (+1.4434495069424402, +0.35126402327824963), (+1.1293008188795723, +0.74072696734207621), (+1.1399819554597070, +0.94333614815701361), (+1.9093357228902579, +0.39834801725223351), (+1.3164964614147867, +0.76910660402421294), (+1.4022567248847451, +0.74656044285989076), (+1.8001992171630774, +0.42149728278823712), (+1.3043676139635265, +0.30586530783641708E-2), (+1.6131376703398890, +0.35770177819073279), (+1.5933723707191780, +0.97780015413269794), (+1.0493406278291644, +0.68705711009929726), (+1.4722516085199819, +0.79341229285152481), (+1.4845793922749682, +0.99260706747682981), (+1.3675835371668499, +0.65395613248382500), (+1.5584540969980414, +0.76001646533585610), (+1.5540391985861808, +0.13398438023917267), (+1.5732912639690433, +0.83003437005345446E-1), (+1.5029467517024311, +0.28344159476790021), (+1.0314828495420276, +0.34889038068556616), (+1.8651780627254779, +0.73714446681737641E-1), (+1.0542517323716618, +0.32575714392990202), (+1.1178890566959256, +0.32803744708454485), (+1.4681971750619833, +0.10382859805034517), (+1.7332163807148275, +0.47864981045229793), (+1.1635458563128500, +0.83783004400127992), (+1.1657138331662504, +0.67841801334081187), (+1.8903997869582270, +0.88959741750361587), (+1.6128546545377414, +0.41085570125892479E-1), (+1.9325551474877334, +0.89647587988647115), (+1.4334679327313462, +0.37661860678573811), (+1.9555559572209531, +0.40381527740441014E-1), (+1.2871835685152753, +0.39759581450229647), (+1.7182915901501756, +0.75437916927722104), (+1.4835141971876533, +0.21569851577278032), (+1.7371640782737381, +0.74680486259014423), (+1.0167441280295135, +0.91425575941332582), (+1.5197093811589242, +0.24422538136163463E-2), (+1.1114166409258108, +0.24144582319508481), (+1.1237146270151031, +0.11225139511796345), (+1.9963106063373524, +0.50168455749392538), (+1.3038297160835424, +0.15886649734774549E-1), (+1.4638232490368814, +0.79856953832291588), (+1.2565127024101344, +0.36822715598270395), (+0.0000000000000000, -0.41633363423443370E-15), (-0.11102230246251565E-15, -0.55511151231257827E-16), (-0.44408920985006262E-15, -0.38857805861880479E-15), (-0.22204460492503131E-15, -0.22204460492503131E-15), (-0.22204460492503131E-15, -0.72164496600635175E-15), (+0.44408920985006262E-15, -0.19428902930940239E-15), (+0.11102230246251565E-15, -0.33306690738754696E-15), (+0.33306690738754696E-15, +0.55511151231257827E-16), (+0.33306690738754696E-15, -0.48572257327350599E-15), (-0.11102230246251565E-15, +0.30531133177191805E-15), (-0.55511151231257827E-15, -0.16653345369377348E-15), (-0.55511151231257827E-15, +0.22204460492503131E-15), (-0.44408920985006262E-15, -0.27755575615628914E-15), (-0.44408920985006262E-15, +0.27755575615628914E-15), (-0.33306690738754696E-15, -0.19428902930940239E-15), (-0.22204460492503131E-15, +0.38857805861880479E-15), (-0.22204460492503131E-15, +0.33306690738754696E-15), (-0.44408920985006262E-15, +0.0000000000000000), (+0.11102230246251565E-15, -0.24980018054066022E-15), (-0.33306690738754696E-15, +0.38857805861880479E-15), (-0.44408920985006262E-15, -0.13877787807814457E-15), (+0.11102230246251565E-15, +0.27755575615628914E-15), (+0.0000000000000000, +0.0000000000000000), (-0.11102230246251565E-15, +0.33306690738754696E-15), (-0.11102230246251565E-15, +0.16653345369377348E-15), (-0.11102230246251565E-15, +0.16653345369377348E-15), (+0.0000000000000000, -0.11102230246251565E-15), (+0.0000000000000000, +0.61062266354383610E-15), (+0.0000000000000000, +0.11102230246251565E-15), (+0.33306690738754696E-15, +0.44408920985006262E-15), (-0.11102230246251565E-15, +0.38857805861880479E-15), (-0.22204460492503131E-15, +0.61062266354383610E-15), (-0.11102230246251565E-15, +0.38857805861880479E-15), (+0.0000000000000000, +0.11102230246251565E-15), (+0.33306690738754696E-15, -0.55511151231257827E-16), (+0.0000000000000000, +0.38857805861880479E-15), (+0.11102230246251565E-15, +0.22204460492503131E-15), (+0.44408920985006262E-15, +0.65225602696727947E-15), (+0.11102230246251565E-15, +0.63837823915946501E-15), (-0.22204460492503131E-15, +0.94368957093138306E-15), (+0.11102230246251565E-15, +0.12628786905111156E-14)
436reltol = sqrt(epsilon(1._TKC))
437reltol
438+0.14901161193847656E-7
439isClose(data, atad(1:size(data)), reltol = reltol)
440T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
441call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
442
443lenData = getUnifRand(5, 100)
444lenData
445+32
446data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
447data
448(+1.09005430268922362652341203525072470, +0.546329058030717139218591101060980188), (+1.39309061313865743575873988525787332, +0.931612750439445325716926400908095042), (+1.91367207956765313958764709453080819, +0.141313787726120706405687743321490716), (+1.13972170750492599728641795217402138, +0.266749063668725161476546393028587473), (+1.45804032506243423962164375456577598, +0.656029030857456957669314196516644017), (+1.02127113418779005729340859254032225, +0.534094557189159174270163041253608249), (+1.02653841890872877808154443860557238, +0.847974135583200555734088921156427077), (+1.19933121817337869214531627274951597, +0.242235660727243302908007617552308609), (+1.89052904968892011232011205276812590, +0.549497633615845743966346355558869083), (+1.94567648050181090023241604969723553, +0.520977009742925482948558350773444825), (+1.55116479508140355110142223975069099, +0.812095684966695630942650726275492390), (+1.94950769275231638637693865297806626, +0.424600771057371219025833072605390394), (+1.52640018133036760674975694201119034, +0.175758740899373648449529150506202100), (+1.88801609307836568856417747048002299, +0.151141744968164192660816710465982157), (+1.66063823580610880280418420928758779, +0.334302139863523657041290712303542288), (+1.14172936920119145979563866416935813, +0.778894183661456862870707234269050770E-1), (+1.46721173076817032249357374973470031, +0.461486988654347243513702433079719310), (+1.09396089901535938159949028308346570, +0.898895334769779970433215402040095985), (+1.81569983718519479078242761734547385, +0.511946953757065562787989777019756031), (+1.72514432001772677090174636134854714, +0.212466034700755767238662396488374685), (+1.63611258270722038525668775112679977, +0.439501333322698096210195688355209419), (+1.71281796515258063075294157503471849, +0.554405724442358242115279908510151875), (+1.90063852943781372036656919393878942, +0.219697974304240136966879286350271880), (+1.48776053412633796039702870514923177, +0.733379471941058066272952007181750794), (+1.80373303869282019151969761693746650, +0.273843382308454675489140916483528885E-1), (+1.52029142491089664190911918779877041, +0.389338900202788921388069750489917265), (+1.91377779264623881319403299868604556, +0.808091822046889204603659054949137036), (+1.82860658637455745096544423813272774, +0.711668068059812999589873746432037035), (+1.09961743135374775861273286775578586, +0.131934334515463313478872092263269611), (+1.00523151383971217603668901653392460, +0.808196592655940491894705315359684872E-1), (+1.80487533163749000302340374673810345, +0.491684239224849581631925894160994533), (+1.89886165277578259354737720150028139, +0.483297444547415105665957704732815542E-1)
449
450atad = getFFTI(getFFTF(data))
451atad
452(+1.09005430268922362652341203525072470, +0.546329058030717139218591101060980188), (+1.39309061313865743575873988525787332, +0.931612750439445325716926400908095042), (+1.91367207956765313958764709453080800, +0.141313787726120706405687743321490692), (+1.13972170750492599728641795217402119, +0.266749063668725161476546393028587522), (+1.45804032506243423962164375456577617, +0.656029030857456957669314196516644017), (+1.02127113418779005729340859254032225, +0.534094557189159174270163041253608442), (+1.02653841890872877808154443860557219, +0.847974135583200555734088921156427173), (+1.19933121817337869214531627274951558, +0.242235660727243302908007617552308826), (+1.89052904968892011232011205276812571, +0.549497633615845743966346355558869083), (+1.94567648050181090023241604969723534, +0.520977009742925482948558350773444728), (+1.55116479508140355110142223975069080, +0.812095684966695630942650726275492390), (+1.94950769275231638637693865297806607, +0.424600771057371219025833072605390490), (+1.52640018133036760674975694201119014, +0.175758740899373648449529150506202052), (+1.88801609307836568856417747048002299, +0.151141744968164192660816710465982037), (+1.66063823580610880280418420928758779, +0.334302139863523657041290712303542096), (+1.14172936920119145979563866416935813, +0.778894183661456862870707234269050529E-1), (+1.46721173076817032249357374973470031, +0.461486988654347243513702433079719310), (+1.09396089901535938159949028308346570, +0.898895334769779970433215402040095985), (+1.81569983718519479078242761734547366, +0.511946953757065562787989777019755935), (+1.72514432001772677090174636134854714, +0.212466034700755767238662396488374636), (+1.63611258270722038525668775112679996, +0.439501333322698096210195688355209419), (+1.71281796515258063075294157503471849, +0.554405724442358242115279908510151875), (+1.90063852943781372036656919393878961, +0.219697974304240136966879286350271784), (+1.48776053412633796039702870514923158, +0.733379471941058066272952007181750794), (+1.80373303869282019151969761693746650, +0.273843382308454675489140916483529848E-1), (+1.52029142491089664190911918779877041, +0.389338900202788921388069750489917313), (+1.91377779264623881319403299868604556, +0.808091822046889204603659054949137228), (+1.82860658637455745096544423813272754, +0.711668068059812999589873746432037131), (+1.09961743135374775861273286775578586, +0.131934334515463313478872092263269659), (+1.00523151383971217603668901653392460, +0.808196592655940491894705315359685113E-1), (+1.80487533163749000302340374673810364, +0.491684239224849581631925894160994533), (+1.89886165277578259354737720150028120, +0.483297444547415105665957704732814819E-1)
453reltol = sqrt(epsilon(1._TKC))
454reltol
455+0.138777878078144567552953958511352539E-16
456isClose(data, atad(1:size(data)), reltol = reltol)
457T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
458call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
459
460lenData = getUnifRand(5, 100)
461lenData
462+98
463data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
464data
465+1.34032917, +1.39388442, +1.37033999, +1.70507777, +1.16498005, +1.78666854, +1.71518946, +1.76403546, +1.87856030, +1.38363671, +1.60365438, +1.89322925, +1.93392658, +1.75938916, +1.71074677, +1.87166500, +1.68278551, +1.90223110, +1.92372406, +1.17700052, +1.16284847, +1.68179560, +1.18918943, +1.60463166, +1.48288679, +1.07067263, +1.19922638, +1.12093806, +1.77100539, +1.78499246, +1.19328046, +1.09573185, +1.22327876, +1.10236514, +1.70340872, +1.25775480, +1.95546126, +1.06415844, +1.72580600, +1.72203445, +1.15500200, +1.77200317, +1.90050328, +1.28801560, +1.23182249, +1.77209234, +1.39531696, +1.84427691, +1.56619704, +1.96687031, +1.44092298, +1.49815321, +1.89137161, +1.98203492, +1.26558089, +1.67692816, +1.70329452, +1.01779366, +1.09088278, +1.25628352, +1.20617902, +1.95033836, +1.82250071, +1.17180991, +1.50768781, +1.71679306, +1.25840569, +1.81523275, +1.25148678, +1.84082377, +1.91009736, +1.07250381, +1.70308638, +1.45929897, +1.79651189, +1.28128958, +1.79907751, +1.75859356, +1.20599616, +1.93048060, +1.39631462, +1.77446675, +1.37551332, +1.04265618, +1.02497518, +1.17754328, +1.57188916, +1.32666802, +1.92348027, +1.48971105, +1.85284162, +1.49346280, +1.73086953, +1.02682972, +1.92563939, +1.92301393, +1.97880840, +1.64089251
466
467atad = getFFTI(getFFTF(data))
468atad
469+1.34032917, +1.39388442, +1.37033963, +1.70507753, +1.16497993, +1.78666830, +1.71518922, +1.76403511, +1.87856030, +1.38363671, +1.60365450, +1.89322913, +1.93392658, +1.75938892, +1.71074677, +1.87166452, +1.68278551, +1.90223098, +1.92372370, +1.17700052, +1.16284859, +1.68179548, +1.18918931, +1.60463178, +1.48288667, +1.07067275, +1.19922626, +1.12093794, +1.77100503, +1.78499246, +1.19328046, +1.09573174, +1.22327876, +1.10236514, +1.70340860, +1.25775456, +1.95546103, +1.06415820, +1.72580588, +1.72203422, +1.15500164, +1.77200317, +1.90050316, +1.28801513, +1.23182249, +1.77209222, +1.39531708, +1.84427667, +1.56619692, +1.96687031, +1.44092250, +1.49815297, +1.89137161, +1.98203468, +1.26558089, +1.67692780, +1.70329452, +1.01779389, +1.09088278, +1.25628316, +1.20617902, +1.95033813, +1.82250071, +1.17180991, +1.50768781, +1.71679306, +1.25840545, +1.81523240, +1.25148702, +1.84082365, +1.91009736, +1.07250369, +1.70308614, +1.45929909, +1.79651201, +1.28128946, +1.79907751, +1.75859356, +1.20599627, +1.93048024, +1.39631438, +1.77446675, +1.37551308, +1.04265594, +1.02497542, +1.17754328, +1.57188904, +1.32666790, +1.92347968, +1.48971128, +1.85284150, +1.49346268, +1.73086941, +1.02682948, +1.92563939, +1.92301369, +1.97880840, +1.64089262, +0.119209290E-6, +0.596046448E-7, +0.298023224E-6, +0.357627869E-6, +0.357627869E-6, +0.774860382E-6, -0.298023224E-6, +0.298023224E-6, +0.178813934E-6, +0.596046448E-7, -0.596046448E-7, +0.119209290E-6, +0.178813934E-6, +0.417232513E-6, +0.298023224E-6, +0.178813934E-6, +0.178813934E-6, +0.298023224E-6, +0.357627869E-6, +0.178813934E-6, +0.178813934E-6, +0.298023224E-6, +0.298023224E-6, +0.00000000, +0.536441803E-6, -0.119209290E-6, +0.119209290E-6, -0.238418579E-6, -0.596046448E-7, -0.178813934E-6
470reltol = sqrt(epsilon(1._TKC))
471reltol
472+0.345266977E-3
473isClose(data, atad(1:size(data)), reltol = reltol)
474T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
475call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
476
477lenData = getUnifRand(5, 100)
478lenData
479+38
480data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
481data
482+1.3934345429543098, +1.4865219569192538, +1.0339991431773130, +1.9181536933203627, +1.6113389029509639, +1.3477826718731927, +1.9248867461002490, +1.2242850565677288, +1.6994580737107601, +1.9239689738070616, +1.1918241286153728, +1.1700705834417051, +1.3823162149068557, +1.4172131578486771, +1.0388124665737051, +1.0917355588375535, +1.5183271792765531, +1.3265175221411418, +1.8639962720714802, +1.4110866565301270, +1.8357504361550534, +1.9548636216564967, +1.4351822568148731, +1.3756809813465321, +1.5791466319949974, +1.8229009281590820, +1.2808181872399751, +1.8485025199844980, +1.3903186801150396, +1.4410945902654118, +1.6903196125457725, +1.6757403614132611, +1.4746489601865882, +1.6449300164788880, +1.1672152074273201, +1.9503275643860465, +1.5586998927193951, +1.6874552138847729
483
484atad = getFFTI(getFFTF(data))
485atad
486+1.3934345429543100, +1.4865219569192543, +1.0339991431773128, +1.9181536933203633, +1.6113389029509637, +1.3477826718731931, +1.9248867461002481, +1.2242850565677288, +1.6994580737107596, +1.9239689738070618, +1.1918241286153721, +1.1700705834417051, +1.3823162149068557, +1.4172131578486771, +1.0388124665737044, +1.0917355588375532, +1.5183271792765534, +1.3265175221411414, +1.8639962720714793, +1.4110866565301268, +1.8357504361550532, +1.9548636216564965, +1.4351822568148724, +1.3756809813465316, +1.5791466319949978, +1.8229009281590816, +1.2808181872399746, +1.8485025199844973, +1.3903186801150396, +1.4410945902654118, +1.6903196125457722, +1.6757403614132598, +1.4746489601865886, +1.6449300164788880, +1.1672152074273203, +1.9503275643860458, +1.5586998927193951, +1.6874552138847729, +0.88817841970012523E-15, -0.55511151231257827E-15, +0.33306690738754696E-15, -0.22204460492503131E-15, +0.99920072216264089E-15, -0.11102230246251565E-15, +0.33306690738754696E-15, -0.11102230246251565E-15, +0.66613381477509392E-15, -0.22204460492503131E-15, +0.11102230246251565E-15, -0.11102230246251565E-15, +0.33306690738754696E-15, +0.11102230246251565E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, +0.66613381477509392E-15, +0.0000000000000000, +0.0000000000000000, +0.66613381477509392E-15, +0.0000000000000000, +0.11102230246251565E-14, +0.33306690738754696E-15, +0.33306690738754696E-15, +0.22204460492503131E-15, +0.11102230246251565E-14
487reltol = sqrt(epsilon(1._TKC))
488reltol
489+0.14901161193847656E-7
490isClose(data, atad(1:size(data)), reltol = reltol)
491T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
492call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
493
494lenData = getUnifRand(5, 100)
495lenData
496+50
497data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
498data
499+1.48950079549775736739187947728829844, +1.86692531595970546546119321719779421, +1.15884386549134991696280030736127428, +1.20981057493526942385449441331682500, +1.34839461221653091024656364224427497, +1.66989741870032998328320981338367817, +1.87663998231771202248738579430881429, +1.18847395853957075038321474961373449, +1.76197388507258160970942541753704761, +1.14005573780142613960258604688714068, +1.35585596153450855940199808174740956, +1.19138281179962612299381415306187564, +1.96321578821347754086997943446514371, +1.07947270005602281310462082501608530, +1.90826439903641865050590260904929649, +1.50053173169320884593743840729388803, +1.58226153959758317032717919176250021, +1.95894601325091099672554797060052524, +1.65958572941462189837783998449384717, +1.75698246635536816052287158127758047, +1.92554615178807765805305622972740282, +1.23612863541959348450071821253348289, +1.21979912864786791894940621723804360, +1.62035256587296845187667591418370955, +1.37085516797311100092303738576403630, +1.87373777880592630816787921335885357, +1.69398458586236016310138503837529054, +1.55343353200596397914368903427932085, +1.03364416750399487305228218412434027, +1.91526302570352303156300602250073372, +1.49410798312641121645641293516450592, +1.33976586470418412636394916267408614, +1.73214214262480197677828919251274694, +1.55362002517816726840622300958943506, +1.49055400016725546356680023706356726, +1.41297622844845995828733955351796345, +1.48831588412834224266566592312975881, +1.48770042116613239219010553798155951, +1.41271354138677425765930473662115205, +1.18708071510231167285662840480575996, +1.51798202702299954280016146417046083, +1.34158839710469497606761023985668985, +1.95096769894337923671458166866212057, +1.81122347751771989183765094606461022, +1.22701180405765323828326440206820840, +1.43636202707250724670921897196657190, +1.56152337423900611432555562090603705, +1.32116277825690288904233703036644348, +1.46474320306661080097857464230032091, +1.50128690126662135526851629219433332
500
501atad = getFFTI(getFFTF(data))
502atad
503+1.48950079549775736739187947728829825, +1.86692531595970546546119321719779421, +1.15884386549134991696280030736127390, +1.20981057493526942385449441331682520, +1.34839461221653091024656364224427555, +1.66989741870032998328320981338367855, +1.87663998231771202248738579430881467, +1.18847395853957075038321474961373430, +1.76197388507258160970942541753704799, +1.14005573780142613960258604688714068, +1.35585596153450855940199808174740937, +1.19138281179962612299381415306187564, +1.96321578821347754086997943446514410, +1.07947270005602281310462082501608492, +1.90826439903641865050590260904929649, +1.50053173169320884593743840729388764, +1.58226153959758317032717919176249983, +1.95894601325091099672554797060052524, +1.65958572941462189837783998449384640, +1.75698246635536816052287158127758028, +1.92554615178807765805305622972740282, +1.23612863541959348450071821253348289, +1.21979912864786791894940621723804322, +1.62035256587296845187667591418370897, +1.37085516797311100092303738576403649, +1.87373777880592630816787921335885377, +1.69398458586236016310138503837529016, +1.55343353200596397914368903427932007, +1.03364416750399487305228218412434008, +1.91526302570352303156300602250073353, +1.49410798312641121645641293516450592, +1.33976586470418412636394916267408576, +1.73214214262480197677828919251274694, +1.55362002517816726840622300958943506, +1.49055400016725546356680023706356707, +1.41297622844845995828733955351796306, +1.48831588412834224266566592312975900, +1.48770042116613239219010553798155970, +1.41271354138677425765930473662115205, +1.18708071510231167285662840480575957, +1.51798202702299954280016146417046121, +1.34158839710469497606761023985669005, +1.95096769894337923671458166866212077, +1.81122347751771989183765094606461022, +1.22701180405765323828326440206820859, +1.43636202707250724670921897196657190, +1.56152337423900611432555562090603744, +1.32116277825690288904233703036644348, +1.46474320306661080097857464230032091, +1.50128690126662135526851629219433332, +0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, +0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33
504reltol = sqrt(epsilon(1._TKC))
505reltol
506+0.138777878078144567552953958511352539E-16
507isClose(data, atad(1:size(data)), reltol = reltol)
508T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
509call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
510
511
Test:
test_pm_fftnr


Final Remarks


If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

  1. If you use any parts or concepts from this library to any extent, you must acknowledge the usage by citing the relevant publications of the ParaMonte library.
  2. If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library, you must also ask the end users to cite this original ParaMonte library.
Author:
Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 428 of file pm_fftnr.F90.


The documentation for this interface was generated from the following file: